--- gforth/Attic/toolsext.fs	1995/11/07 18:07:03	1.6
+++ gforth/Attic/toolsext.fs	1996/05/09 18:13:04	1.7
@@ -83,7 +83,7 @@ User (i)
 : [LOOP] ( -- ) 1 rdrop rdrop ;                       immediate
 : [FOR] ( n -- )  0 swap postpone [DO] ;              immediate
 : [NEXT] ( n -- ) -1 rdrop rdrop ;                    immediate
-: [I] ( -- index ) (I) @ postpone Literal ;           immediate
+: [I] ( -- index ) (I) @ postpone Literal ;           immediate restrict
 : [BEGIN] >in @ >r BEGIN r@ >in ! interpret UNTIL rdrop ;
                                                       immediate
 ' [+LOOP]  Alias [UNTIL] immediate