--- gforth/kernel/comp.fs	2002/12/03 10:47:50	1.45
+++ gforth/kernel/comp.fs	2002/12/19 23:22:20	1.46
@@ -237,7 +237,7 @@ has? peephole [IF]
 
 : dyn-compile! ( xt -- )
     \ compile xt, appending its code to the current dynamic superinstruction
-    compile-prim last-compiled-here @ ! ;
+    last-compiled-here @ tuck ! compile-prim1 ;
 
 :noname ( -- )
     last-compiled @ if