diff --git a/blk.fs b/blk.fs
index b0294e2..af15157 100644
--- a/blk.fs
+++ b/blk.fs
@@ -1944,22 +1944,16 @@ SYSVARS 0x36 + :** BLK!*
 : COPY ( src dst -- )
     FLUSH SWAP BLK@ BLK> ! BLK! ;
 ( ----- 375 )
-: _
-    999 SWAP        ( stop indicator )
-    BEGIN
-        ?DUP NOT IF EXIT THEN
-        10 /MOD         ( r q )
-        SWAP '0' + SWAP ( d q )
-    AGAIN ;
 : . ( n -- )
     ?DUP NOT IF '0' EMIT EXIT THEN ( 0 is a special case )
     ( handle negative )
     DUP 0< IF '-' EMIT -1 * THEN
-    _
+    999 SWAP        ( stop indicator )
     BEGIN
-        DUP '9' > IF DROP EXIT THEN  ( stop indicator )
-        EMIT
-    AGAIN ;
+        10 /MOD ( r q )
+        SWAP '0' + SWAP ( d q )
+        ?DUP NOT UNTIL
+    BEGIN EMIT DUP '9' > UNTIL DROP ( drop stop ) ;
 ( ----- 376 )
 : ? @ . ;
 : _
diff --git a/cvm/stage.bin b/cvm/stage.bin
index 283b2cb..1c1d17c 100644
Binary files a/cvm/stage.bin and b/cvm/stage.bin differ