--- gforth/tt.fs	1997/10/04 17:33:54	1.3
+++ gforth/tt.fs	2006/12/30 20:06:26	1.5
@@ -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
 
@@ -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