--- gforth/tt.fs	1994/11/29 16:49:49	1.1
+++ gforth/tt.fs	2006/12/30 20:06:26	1.5
@@ -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
 
@@ -312,7 +312,9 @@ create brick-val 1 c, 2 c, 3 c, 3 c, 4 c
 		again ;
 
 : to-upper	\ char --- char ; convert to upper case
-		dup [char] a >= over [char] z <= and if  bl -  then ;
+    dup [char] a [char] z 1+ within if
+	bl -
+    then ;
 
 : interaction	\ --- flag
 		case  key to-upper
@@ -345,7 +347,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