--- gforth/tt.fs	1997/10/04 17:33:54	1.3
+++ gforth/tt.fs	2000/09/03 22:29:16	1.4
@@ -11,7 +11,7 @@
 \
 
 only forth also definitions
-s" forget-tt" sfind [if] forget-tt [then] marker forget-tt
+[ifdef] forget-tt forget-tt [then] marker forget-tt
 
 vocabulary tetris  tetris also definitions