--- gforth/kernel/comp.fs	1998/10/10 10:28:35	1.3
+++ gforth/kernel/comp.fs	1998/11/22 21:23:27	1.4
@@ -141,7 +141,7 @@ create nextname-buffer 32 chars allot
 : (compile) ( -- ) \ gforth
     r> dup cell+ >r @ compile, ;
 
-: postpone, ( w xt -- )
+: postpone, ( w xt -- ) \ gforth	postpone-comma
     \g Compiles the compilation semantics represented by @var{w xt}.
     dup ['] execute =
     if