diff --git a/map65/libm65/gen_q65_wave.f90 b/map65/libm65/gen_q65_wave.f90
index fdff51e14..c838a51fa 100644
--- a/map65/libm65/gen_q65_wave.f90
+++ b/map65/libm65/gen_q65_wave.f90
@@ -17,7 +17,10 @@ subroutine gen_q65_wave(msg,ntxfreq,mode65,msgsent,iwave,nwave)
   data twopi/6.283185307179586476d0/
   save
 
-  wsjtx_dir='./'
+  open(9,file='wsjtx_dir.txt',status='old')
+  read(9,'(a)') wsjtx_dir
+  close(9)
+
   msgsent=msg
 !                1         2         3         4         5
 !       12345678901234567890123456789012345678901234567890123456789012345
diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90
index cc1301a45..4a0819a47 100644
--- a/map65/libm65/q65b.f90
+++ b/map65/libm65/q65b.f90
@@ -23,8 +23,11 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
   character*80 wsjtx_dir
   common/cacb/ca,cb
   save
-  wsjtx_dir='./'
-  
+
+  open(9,file='wsjtx_dir.txt',status='old')
+  read(9,'(a)') wsjtx_dir
+  close(9)
+
   mycall='K1JT'
   hiscall='IV3NWV'
   grid4='AA00'