--- gforth/stuff.fs	2005/06/28 06:45:07	1.42
+++ gforth/stuff.fs	2005/06/28 06:49:41	1.43
@@ -153,6 +153,7 @@ AUser CSP
     \ this is only a marker; it is never really interpreted
     compile-only-error ; immediate
 
+[ifdef] compiler1
 : postponer1 ( c-addr u -- ... xt )
     2dup find-name dup if ( c-addr u nt )
 	nip nip name>comp
@@ -179,6 +180,8 @@ AUser CSP
     \ switch into postpone state
     ['] postponer1 is parser1 state on ; immediate restrict
 
+[then]
+
 \ f.rdp
 
 : push-right ( c-addr u1 u2 cfill -- )