--- gforth/compat/loops.fs	1996/01/25 16:47:05	1.1
+++ gforth/compat/loops.fs	1996/11/11 17:00:07	1.2
@@ -11,7 +11,7 @@
     2dup u>
     IF
 	swap
-    ENDIF
+    THEN
     drop ;
 
 : U+DO ( compile-time: -- do-sys; run-time: u1 u2 -- )