--- gforth/environ.fs	1997/09/13 12:04:55	1.15
+++ gforth/environ.fs	1998/10/10 10:28:34	1.16
@@ -31,9 +31,9 @@ Create environment-wordlist  wordlist dr
 
 : e? name environment? 0= ABORT" environmental dependency not existing" ;
 
-: has? name environment? IF ELSE false THEN ;
+: has? name environment? 0= IF false THEN ;
 
-: $has? environment? IF ELSE false THEN ;
+: $has? environment? 0= IF false THEN ;
 
 environment-wordlist set-current
 get-order environment-wordlist swap 1+ set-order