--- gforth/kernel/comp.fs	2003/10/05 15:01:17	1.59
+++ gforth/kernel/comp.fs	2003/10/16 18:48:04	1.60
@@ -221,7 +221,9 @@ defer compile, ( xt -- )	\ core-ext	comp
 
 defer basic-block-end ( -- )
 
-' noop is basic-block-end
+:noname ( -- )
+    0 compile-prim1 ;
+is basic-block-end
 
 has? peephole [IF]