diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 67e7ac319..0e99a7592 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -139,7 +139,7 @@ program jt9
            read (optarg(:arglen), *) nexp_decode
      end select
   end do
-
+  
   if (display_help .or. stat .lt. 0                      &
        .or. (.not. read_files .and. remain .gt. 0)       &
        .or. (read_files .and. remain .lt. 1)) then
@@ -234,7 +234,7 @@ program jt9
         read(unit=wav%lun,end=3) shared_data%id2(k-kstep+1:k)
         go to 4
 3       call timer('read_wav',1)
-        print*,'EOF on input file ',infile
+        print*,'EOF on input file ',trim(infile)
         exit
 4       call timer('read_wav',1)
         nhsym=(k-2048)/kstep
diff --git a/lib/readwav.f90 b/lib/readwav.f90
index ebc30c9a0..5cd866e68 100644
--- a/lib/readwav.f90
+++ b/lib/readwav.f90
@@ -53,7 +53,7 @@ contains
     type(riff_descriptor) :: desc
     character(len=4) :: riff_type
 
-    open (newunit=this%lun, file=filename, access='stream', form='unformatted', status='old')
+    open (unit=this%lun, file=filename, access='stream',status='old')
     read (unit=this%lun) desc,riff_type
     inquire (unit=this%lun, pos=filepos)
     do