diff --git a/blk/109 b/blk/109
index 9b2d09e..27a6944 100644
--- a/blk/109
+++ b/blk/109
@@ -1,5 +1,6 @@
 : _U ( U without P, used in VE )
-    15 EDPOS @ 64 / - 0 DO
+    15 EDPOS @ 64 / - ?DUP IF
+    0 DO
         14 I - _mvln+
-    LOOP ;
+    LOOP THEN ;
 : U _U P ;
diff --git a/blk/130 b/blk/130
index 46c9ab1..3d94658 100644
--- a/blk/130
+++ b/blk/130
@@ -8,9 +8,8 @@
         DUP 0x20 >= IF
         DUP EMIT EDPOS @ _cpos C! 1 EDPOS +! BLK!! 0
     THEN UNTIL mode! SPC contents ;
-: $O EDPOS @ 0x3c0 ( 15 * 64 ) >= IF EXIT THEN
-    _U EDPOS @ 0x3c0 AND DUP pos! _cpos _zbuf BLK!! contents ;
-: $o EDPOS @ 64 < IF EXIT THEN EDPOS @ 64 + EDPOS ! $O ;
+: $O _U EDPOS @ 0x3c0 AND DUP pos! _cpos _zbuf BLK!! contents ;
+: $o EDPOS @ 0x3c0 < IF EDPOS @ 64 + EDPOS ! $O THEN ;
 : $D $H 64 icpy
     acc@ 0 DO 16 EDPOS @ 64 / DO I _mvln- LOOP LOOP
     BLK!! contents ;