diff --git a/blk/420 b/blk/420
index 53bf09e..5572acc 100644
--- a/blk/420
+++ b/blk/420
@@ -1 +1 @@
-1 16 LOADR+ ( xcomp core high )
+1 18 LOADR+ ( xcomp core high )
diff --git a/blk/434 b/blk/434
index 0819e39..db838a0 100644
--- a/blk/434
+++ b/blk/434
@@ -2,7 +2,3 @@
 ( b1 b2 -- )
 : LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ;
 : LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ;
-( Now we have "as late as possible" stuff )
-: DO COMPILE 2>R H@ ; IMMEDIATE
-: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
-( LEAVE is implemented in low xcomp )
diff --git a/blk/435 b/blk/437
similarity index 59%
rename from blk/435
rename to blk/437
index 325af37..65a31d5 100644
--- a/blk/435
+++ b/blk/437
@@ -1,3 +1,7 @@
+( Now we have "as late as possible" stuff )
+: DO COMPILE 2>R H@ ; IMMEDIATE
+: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
+( LEAVE is implemented in low xcomp )
 : LITN 32 , , ( 32 == NUMBER ) ;
 
 ( ';' can't have its name right away because, when created, it
@@ -7,4 +11,3 @@
     ['] EXIT ,
     R> DROP     ( exit : )
 ; IMMEDIATE
-
diff --git a/blk/436 b/blk/438
similarity index 100%
rename from blk/436
rename to blk/438