diff --git a/lib/fano232.f90 b/lib/fano232.f90
index dc3c639f6..5ba95d46c 100644
--- a/lib/fano232.f90
+++ b/lib/fano232.f90
@@ -126,7 +126,7 @@ subroutine fano232(symbol,nbits,mettab,ndelta,maxcycles,dat,     &
   np=7
   do j=1,nbytes-1
      i4a=nstate(np)
-     dat(j)=i4a
+     dat(j)=int(i4a,1)
      np=np+8
   enddo
   dat(nbytes)=0
diff --git a/lib/wqdecode.f90 b/lib/wqdecode.f90
index baa68cb14..625658b5c 100644
--- a/lib/wqdecode.f90
+++ b/lib/wqdecode.f90
@@ -316,7 +316,7 @@ subroutine unpackpfx(ng,call1)
         endif
         n=n/37
      enddo
-     call1=pfx//'/'//call1
+     call1=pfx//'/'//call1(1:8)
      if(call1(1:1).eq.' ') call1=call1(2:)
      if(call1(1:1).eq.' ') call1=call1(2:)
   else