diff --git a/blk/445 b/blk/445
index d98508c..8ad77b7 100644
--- a/blk/445
+++ b/blk/445
@@ -1,9 +1,6 @@
 : DUMP ( n a -- )
     LF
-    BEGIN
-        OVER 1 < IF 2DROP EXIT THEN
-        _
-        SWAP 8 - SWAP
-    AGAIN
+    SWAP 8 /MOD SWAP IF 1+ THEN
+    0 DO _ LOOP
 ;
 
diff --git a/emul/forth.bin b/emul/forth.bin
index c928a49..cdd42bb 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ