--- gforth/kernel/io.fs	2006/12/31 13:39:19	1.26
+++ gforth/kernel/io.fs	2007/03/18 21:46:17	1.27
@@ -106,7 +106,7 @@ all-words
   \G Display one space.
   bl emit ;
 
-has? ec [IF]
+has? os 0= [IF]
 : spaces ( n -- ) \ core
   \G If n > 0, display n spaces. 
   0 max 0 ?DO space LOOP ;