#;1> (use environments)
; loading /usr/local/chicken-4.7.0/lib/chicken/6/environments.import.so ...
; loading /usr/local/chicken-4.7.0/lib/chicken/6/environments.so ...
#;2> (environment-includes? (interaction-environment) 'name)
#f
#;3>  (define  widget-eval-env (make-parameter (environment-copy (interaction-environment) #t)))
#;4> (define env (environment-copy (widget-eval-env) #t))
#;5> env
#<environment>
#;6> (environment-includes? env 'name)
#t
#;7> ^D