Strange undefined binding bug coupled to module system

[Mikael Djurfeldt]

Loading of the following code:

foo.scm:
----------------------------------------------------------------------
(define-module (foo))

(define (encapsulate proc)
  (lambda (_) (proc _)))

(display round)
(newline)
(define round (encapsulate round))
----------------------------------------------------------------------

Gives (since some change during last spring):

guile> (load "foo.scm")
#<primitive-procedure round>

Backtrace:
In unknown file:
   ?: 0* [primitive-load "foo.scm"]
In foo.scm:
   8: 1* (define round (encapsulate round))
   8: 2* [encapsulate ...

foo.scm:8:15: While evaluating arguments to encapsulate in expression 
(encapsulate round):
foo.scm:8:15: Unbound variable: round
ABORT: (unbound-variable)