diff --git a/6502/C64/disks/file-words.d64 b/6502/C64/disks/file-words.d64
index 68e0f29..29af1f0 100644
Binary files a/6502/C64/disks/file-words.d64 and b/6502/C64/disks/file-words.d64 differ
diff --git a/6502/C64/disks/file-words.fth b/6502/C64/disks/file-words.fth
index 2f85423..9c1342e 100644
--- a/6502/C64/disks/file-words.fth
+++ b/6502/C64/disks/file-words.fth
@@ -281,7 +281,7 @@
 
 \ *** Block No. 10, Hexblock a
 
-\ include loadscreen           09jun20pz
+\ include loadscreen           14jun20pz
 
 
   : i/o-status?  $90 c@ ;
@@ -291,7 +291,7 @@
    BEGIN bus@ con! i/o-status? UNTIL
    busoff ;
 
-  : unloop  rdrop rdrop rdrop ;
+  : unloop  r> rdrop rdrop rdrop >r ;
 
   : lo/hi> ( lo hi -- u )
      255 and 256 * swap 255 and + ;