diff --git a/blk/370 b/blk/370
index 49faaa4..245eae5 100644
--- a/blk/370
+++ b/blk/370
@@ -1,15 +1,15 @@
 : MOVE ( a1 a2 u -- )
-    ( u ) 0 DO ( a1 a2 )
+    ?DUP IF ( u ) 0 DO ( a1 a2 )
         SWAP C@+ ( a2 a1+1 x )
         ROT C!+ ( a1+1 a2+1 )
-    LOOP 2DROP ;
+    LOOP THEN 2DROP ;
 : MOVE- ( a1 a2 u -- )
-    TUCK + 1- ( a1 u a2+u-1 )
+    ?DUP IF TUCK + 1- ( a1 u a2+u-1 )
     ROT 2 PICK + 1- ( u a2+u-1 a1+u-1 )
     ROT ( u ) 0 DO ( a2 a1 )
         C@- ( a2 a1-1 x )
         ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )
-    LOOP 2DROP ;
+    LOOP THEN 2DROP ;
 : MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;
 : PREV 3 - DUP @ - ;
 
diff --git a/emul/forth.bin b/emul/forth.bin
index 95273dc..70d1e8d 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ