diff --git a/blk/081 b/blk/081
index 02086c2..ee68d54 100644
--- a/blk/081
+++ b/blk/081
@@ -7,6 +7,7 @@ RAMSTART  FUTURE USES          +55       (key) override
 +0c       C<*                  +70       DRIVERS
 +0e       WORDBUF              +80       RAMEND
 +2e       BOOT C< PTR
++30       FUTURE USES
 +4e       INTJUMP
 +51       CURRENTPTR
 +53       (emit) override
diff --git a/blk/405 b/blk/405
index eb8ab2c..c1a329b 100644
--- a/blk/405
+++ b/blk/405
@@ -1,7 +1,4 @@
-( The NOT is to normalize the negative/positive numbers to 1
-  or 0. Hadn't we wanted to normalize, we'd have written:
-  32 CMP 1 - )
-: WS? 33 CMP 1+ NOT ;
+: WS? 33 < ;
 
 : TOWORD
     BEGIN
diff --git a/blk/406 b/blk/406
index 3fcd1e4..be9cd1f 100644
--- a/blk/406
+++ b/blk/406
@@ -1,5 +1,5 @@
 ( Read word from C<, copy to WORDBUF, null-terminate, and
-  return, make HL point to WORDBUF. )
+  return WORDBUF. )
 : WORD
     0x0e RAM+  ( 0e == WORDBUF )
     TOWORD     ( a c )
@@ -8,7 +8,7 @@
           always zero to pre-write our null-termination )
         OVER ! 1+            ( a+1 )
         C<                   ( a c )
-        DUP WS?
+        OVER 0x2d ( 2e-1 for NULL ) RAM+ = OVER WS? OR
     UNTIL
     ( a this point, PS is: a WS )
     ( null-termination is already written )
diff --git a/emul/forth.bin b/emul/forth.bin
index 7be25ae..e2112c8 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ