Attached is an experimental fix for sane object cross-references[1]
Please test it (and possibly add an appropriate test case for it to the suite), everyone.
It works fine for me so far.
Leslie
[1] http://common-lisp.net/pipermail/cl-prevalence-devel/2008-March/000097.html