read crashes on shared structure

Hello,
there is a write-circle/read inconsistency, see attachment.
I tried patching the reader with code from srfi-38, but that is not straightforward:
there is a letrec-based recursive call to read further tokens, whereas bigloo is grammar-based.
Maybe this example can be adopted as a testcase for R7RS support at some point.
Cheers,
Andreas