diff --git a/scanfile.f90 b/scanfile.f90
index 77bf477a03fce79f72d8568c83c3834548104b35..941fd4b4f401ea3da458798f9ee63253023e7f42 100644
--- a/scanfile.f90
+++ b/scanfile.f90
@@ -51,7 +51,7 @@ call mpi_comm_rank (mpi_comm_world,iproc,ierr)
  
 ires=0
 open (7,file=fnme(1:len_trim(fnme)),status='old',iostat=ios) 
-if (ios/=0) write(*,*) 'pb opening <',fname,'> in iscanfile'
+if (ios/=0) write(*,*) 'pb opening <',fnme(1:len_trim(fnme)),'> in iscanfile'
 
 111 continue