[Chicken-hackers] serious bug ? in units and set!

[Thomas Bushnell BSG]

test2.scm contains:
  (declare (unit test2) (export blah))
  (define (blah) (display (format "foo: ~s\n" foo)) (set! foo 'whiz))

main.scm contains:
  (declare (uses test2) (export foo))
  (define foo #t)
  (blah)

Compile with csc -o foo test2.scm main.scm and run it.  And the output
is:

foo: whiz

On Chicken Scheme 3.4.0 in current Debian unstable.

If all these definitions are put in one file, then the output is
foo: #t
as expected.