--- gforth/extend.fs	2002/12/04 10:42:58	1.47
+++ gforth/extend.fs	2002/12/13 15:49:53	1.48
@@ -236,7 +236,9 @@ variable span ( -- c-addr ) \ core-ext
     REPEAT
     drop
     \ remember udp
-    udp @ , ;
+    udp @ ,
+    \ remember dyncode-ptr
+    here ['] noop , compile-prim1 finish-code ;
 
 : marker! ( mark -- )
     \ reset included files count; resize will happen on next add-included-file
@@ -263,6 +265,7 @@ variable span ( -- c-addr ) \ core-ext
     REPEAT
     drop
     \ restore udp and dp
+    dup cell+ @ forget-dyncode 0= abort" gforth bug"
     @ udp !  dp !
     \ clean up vocabulary stack
     0 vp @ 0