--- gforth/extend.fs	2002/12/13 15:49:53	1.48
+++ gforth/extend.fs	2002/12/27 12:32:52	1.50
@@ -25,7 +25,7 @@ decimal
 
 \ .(                                                    12may93jaw
 
-: .(   ( compilation,interpretation "ccc<paren>" -- ) \ core-ext dot-paren
+: .(   ( compilation&interpretation "ccc<paren>" -- ) \ core-ext dot-paren
   \G Compilation and interpretation semantics: Parse a string @i{ccc}
   \G delimited by a @code{)} (right parenthesis). Display the
   \G string. This is often used to display progress information during
@@ -265,7 +265,9 @@ variable span ( -- c-addr ) \ core-ext
     REPEAT
     drop
     \ restore udp and dp
+[IFDEF] forget-dyncode
     dup cell+ @ forget-dyncode 0= abort" gforth bug"
+[THEN]
     @ udp !  dp !
     \ clean up vocabulary stack
     0 vp @ 0