--- gforth/see.fs	1996/01/07 17:22:14	1.10
+++ gforth/see.fs	1996/05/13 16:37:02	1.12
@@ -495,7 +495,7 @@ CREATE C-Table
         WHILE   2 pick <>
         WHILE   2 cells +
         REPEAT
-        nip cell+ @ EXECUTE
+        nip cell+ perform
         true
         ELSE
         2drop drop false
@@ -590,8 +590,9 @@ create wordtypes
         wordtypes
         BEGIN dup @ dup
         WHILE 2 pick = IF cell+ @ nip EXECUTE
-	                  r> dup 32 and IF ."  immediate" THEN
-			         64 and IF ."  restrict" THEN EXIT THEN
+	                  r> dup immediate-mask and IF ."  immediate" THEN
+			  restrict-mask  and IF ."  restrict" THEN
+			  EXIT THEN
               2 cells +
         REPEAT
         2drop rdrop