diff --git a/src/glue.prorwts2.a b/src/glue.prorwts2.a
index 32c54417a..4b9cf7d15 100644
--- a/src/glue.prorwts2.a
+++ b/src/glue.prorwts2.a
@@ -132,6 +132,8 @@ SaveSmallFile
 ;------------------------------------------------------------------------------
 traverse
          +LDAY gRootDirectory
+         sta   (reloc + unrhddblocklo - unrelochdd) + 1
+         sty   (reloc + unrhddblockhi - unrelochdd) + 1
          sta   @myreadblock+1
          sty   @myreadblock+3        ; reset 'root' directory (saved at program start)
 
diff --git a/src/prorwts2.a b/src/prorwts2.a
index 30f2f8312..134e5d6c3 100644
--- a/src/prorwts2.a
+++ b/src/prorwts2.a
@@ -2200,6 +2200,9 @@ hddfoundname    iny
                 ;cache AUX_TYPE (load offset for binary files)
 
   !if override_adr = 0 {
+                lda     reqcmd
+                lsr
+                bne     + ;cmdwrite
                 ldy     #AUX_TYPE
                 lda     (bloklo), y
     !if (allow_subdir + allow_saplings + allow_trees + (aligned_read xor 1)) > 0 {
@@ -2209,7 +2212,8 @@ hddfoundname    iny
                 lda     (bloklo), y
                 sta     ldrhi
                 sta     ldrhi2
-    } else { ;allow_subdir = 0 and allow_saplings = 0 and allow_trees = 0 and aligned_read = 1
++
+   } else { ;allow_subdir = 0 and allow_saplings = 0 and allow_trees = 0 and aligned_read = 1
                 pha
                 iny
                 lda     (bloklo), y