--- gforth/environ.fs	2000/11/29 19:43:07	1.26
+++ gforth/environ.fs	2001/09/16 10:20:39	1.27
@@ -41,10 +41,10 @@ vocabulary environment ( -- ) \ gforth
 
 : e? name environment? 0= ABORT" environmental dependency not existing" ;
 
-: has? name environment? 0= IF false THEN ;
-
 : $has? environment? 0= IF false THEN ;
 
+: has? name $has? ;
+
 environment-wordlist set-current
 get-order environment-wordlist swap 1+ set-order