--- gforth/stuff.fs	2002/09/14 08:20:20	1.22
+++ gforth/stuff.fs	2003/01/22 17:12:49	1.24
@@ -66,8 +66,10 @@ AUser CSP
     \G equivalent to @code{] literal}
     ] postpone literal ;
 
+[ifundef] in-dictionary?
 : in-dictionary? ( x -- f )
     forthstart dictionary-end within ;
+[endif]
 
 : in-return-stack? ( addr -- f )
     rp0 @ swap - [ forthstart 6 cells + ]L @ u< ;
@@ -126,3 +128,4 @@ AUser CSP
 	2drop
     repeat
     - + dup >r resize throw r> ;
+