--- gforth/kernel/cond.fs	2012/08/21 19:44:27	1.28
+++ gforth/kernel/cond.fs	2012/08/27 13:33:48	1.29
@@ -195,7 +195,7 @@ IS until-like
 	    I cs-item-size / cs-pick postpone AGAIN
 	    UNLOOP  EXIT  THEN
     cs-item-size +LOOP
-    true abort" no BEGIN found" ; immediate compile-only
+    true abort" no BEGIN found" ; immediate restrict
 
 \ counted loops