--- gforth/fi2c.fs	2007/03/04 22:39:37	1.16
+++ gforth/fi2c.fs	2007/03/18 22:35:52	1.17
@@ -33,8 +33,9 @@ wordlist Constant target-environment
 \ save information of current dictionary to restore with environ>
 Variable env-current 
 
-: >ENVIRON get-current env-current ! target-environment set-current ;
-: ENVIRON> env-current @ set-current ; 
+: >ENVIRON get-current env-current ! target-environment set-current
+  also target-environment context ! ;
+: ENVIRON> previous env-current @ set-current ; 
 
 : t-env? ( addr len -- [ x ] true | false )
 \G returns the content of environment variable and true or