--- gforth/kernel/recognizer.fs	2012/05/26 12:11:43	1.16
+++ gforth/kernel/recognizer.fs	2012/06/22 21:32:15	1.19
@@ -25,8 +25,9 @@
 
 : lit, ( n -- ) postpone Literal ;
 : nt, ( nt -- ) name>comp execute ;
-Variable nt-ex-r
-: nt-ex ( nt -- )  r> nt-ex-r ! name>int execute nt-ex-r @ >r ;
+: nt-ex ( nt -- )
+    [ cell 1 floats - dup [IF] ] lp+!# [ dup , [THEN] drop ]
+    r> >l name>int execute @local0 >r lp+ ;
 
 ' nt-ex
 ' nt,
@@ -113,5 +114,6 @@ Variable forth-recognizer
 
 : postpone ( "name" -- ) \ core
     \g Compiles the compilation semantics of @i{name}.
-    parse-name forth-recognizer do-recognizer >postpone ; immediate
+    parse-name forth-recognizer do-recognizer >postpone
+; immediate restrict