diff --git a/blk/405 b/blk/405
index c1a329b..9c19033 100644
--- a/blk/405
+++ b/blk/405
@@ -1,9 +1,3 @@
 : WS? 33 < ;
 
-: TOWORD
-    BEGIN
-        C< DUP WS? NOT IF EXIT THEN DROP
-    AGAIN
-;
-
-
+: TOWORD 0 ( dummy ) BEGIN DROP C< DUP WS? NOT UNTIL ;
diff --git a/emul/forth.bin b/emul/forth.bin
index e2112c8..c26b75c 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ