--- gforth/stuff.fs	2002/09/14 08:20:20	1.22
+++ gforth/stuff.fs	2002/12/26 19:16:17	1.23
@@ -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< ;