--- gforth/tt.fs	1994/11/29 16:49:49	1.1
+++ gforth/tt.fs	2000/09/03 22:29:16	1.4
@@ -11,7 +11,7 @@
 \
 
 only forth also definitions
-\ s" forget-tt" drop 1- find nip [if] forget-tt [then] marker forget-tt
+[ifdef] forget-tt forget-tt [then] marker forget-tt
 
 vocabulary tetris  tetris also definitions
 
@@ -345,7 +345,7 @@ create brick-val 1 c, 2 c, 3 c, 3 c, 4 c
 		    begin  4 0
 			do  35 13 at-xy
 			    delay @ ms key?
-			    if  interaction 0=
+			    if interaction 0=
 				if  unloop exit  then
 			    then
 			loop