diff --git a/src/constants.a b/src/constants.a
index e3d4ef200..3a61ef39f 100644
--- a/src/constants.a
+++ b/src/constants.a
@@ -202,7 +202,7 @@ iCurBlockLo    = $D601               ; constant
 iCurBlockHi    = $D603               ; constant
 launchpatch    = $D853               ; glue.launch.a
 iAddToPath     = $FEA5               ; Roger Rabbit, avoid, use Infiltrator 2 style instead
-itraverse      = $DB3F               ; Roger Rabbit, avoid, use Infiltrator 2 style instead
+itraverse      = $DB31               ; Roger Rabbit, avoid, use Infiltrator 2 style instead
 ldrlo          = $55                 ; constant
 ldrhi          = $56                 ; constant
 namlo          = $57                 ; constant
diff --git a/src/prodos.impl.lc2.a b/src/prodos.impl.lc2.a
index cc4aa5a5e..039d664b0 100644
--- a/src/prodos.impl.lc2.a
+++ b/src/prodos.impl.lc2.a
@@ -218,32 +218,24 @@ ProDOS_enter
 resetval=$f0
 @imp_seek
          jsr   @set_rdwrbuff
-         lda   sizelo
-         ora   ldrlo
-         ora   ldrhi
-         bne   @not_zero
-         sta   treeidx
-         sta   blkidx
-         beq   @link_jmpzp
-
-@not_zero
          lda   sizelo
          lsr
-         pha
+         tay
          lda   ldrhi
          ror
          sta   blkidx
-         pla
-         tay
+         ldx   istree
+         beq   @sametree
          tax
-         lda   istree
+         beq   @skiptree
+         iny
+         cpy   treeidx
+
+@skiptree
+         sty   treeidx
          beq   @sametree
-         inx
-         cpx   treeidx
-         beq   @sametree
-         stx   treeidx
-         ldx   hddtreebuf, y
-         lda   hddtreebuf + 256, y
+         ldx   hddtreebuf - 1, y
+         lda   hddtreebuf + 255, y
          jsr   hddreaddirsel
 
 @sametree