--- gforth/tt.fs	1994/11/29 16:49:49	1.1
+++ gforth/tt.fs	1994/12/21 14:26:26	1.2
@@ -11,7 +11,7 @@
 \
 
 only forth also definitions
-\ s" forget-tt" drop 1- find nip [if] forget-tt [then] marker forget-tt
+s" forget-tt" sfind [if] forget-tt [then] marker forget-tt
 
 vocabulary tetris  tetris also definitions