star export '(module foo * ...)' doesn't work with reexport

[megane]

Fails with 4.7.5 (rev e6671cd)

In the case below you can see that the export of 'bar' is lost when using reexport.

Ticket #219 might be related.

(module a *

(import chicken scheme)
(define foo 1))

(module b (bar)

(import chicken scheme)
(reexport a)
(define bar 2))

(module c *

(import chicken scheme)
(reexport a) ;; <- oops, bar not exported anymore
(define bar 2))

(import (prefix b b/))
(import (prefix c c/))

(print b/foo)
(print c/foo)

(print b/bar)
(print c/bar) ;; <- Error: unbound variable: c/bar

[megane]

possible patch