--- gforth/kernel/errore.fs	1998/12/08 22:03:09	1.4
+++ gforth/kernel/errore.fs	1999/02/24 11:54:39	1.6
@@ -34,13 +34,16 @@ decimal
 \ error numbers between -512 and -2047 are for OS errors and are
 \ handled with strerror
 
+has? OS [IF]
 : >stderr ( -- )
     r> outfile-id >r stderr to outfile-id
     >exec  r> to outfile-id ;
+[ELSE]
+: >stderr ;
+[THEN]
 
 : .error ( n -- )
     >stderr
-    cr ." Error: "
     ErrLink
     BEGIN @ dup
     WHILE