reexported pred. inaccessible (0909)

A reexported predicate is not accessible under the following
circumstances:

[eclipse 1]: [user].

 :- module(m1).
 
 :- export a/1.
 
 a(m1).
 
 :- module(m2).


If the user now makes a compiled call to the as yet non-existing a/1 in
m2:


[eclipse 2]: [user].
 t(X) :- m2:a(X).
 user       compiled traceable 32 bytes in 0.00 seconds

yes.
[eclipse 3]: t(X).
calling an undefined procedure m2 : a(X) in module eclipse

The undefined procedure error is raised as expected.
However, if m1 is now reexported from m2:
[eclipse 4]: module(m2).
[m2 5]: reexport m1.

yes.
[m2 6]: module(eclipse).
[eclipse 7]: [user].
 t(X) :- m2:a(X).
 user       compiled traceable 32 bytes in 0.00 seconds

yes.
[eclipse 8]: t(X).
calling an undefined procedure m1 : a(X) in module eclipse

the newly compiled t/1 still cannot access a/1 (note m1 is reported as
the module).

but a direct call works correctly:

[eclipse 12]: m2:a(X).

X = m1
yes.
[eclipse 13]: 

(this bug might be related to 0904)