[plt-scheme] print-convert and eval problem

Hi all,

I am having a strange problem with print-convert and eval-string.

Consider the following short example

(eval-string (format "~s" (print-convert abindings)))

In some cases (format "~s" (print-convert abindings)) is equal to 
something like the following (please note the 'shared'):

(shared ((-15- "true") (-8- "false")) (quasiquote ((category . 
"Date/Time") (date/time.event . "Wed, 20 Apr 2005 11:38 CST") 
(date/time.event-event-5 u
nquote -8-) (date/time.event-event-4 unquote -8-) 
(date/time.event-event-3 unquote -8-) (date/time.event-event-2 unquote 
-15-) (date/time.event-event-1 unquote -15-) (date/time.aware . "") 
(date/time.aware-event
-5 unquote -8-) (date/time.aware-event-4 unquote -8-) 
(date/time.aware-event-3 unquote -8-) (date/time.aware-event-2 unquote 
-8-) (date/time.aware-event-1 unquote -8-))))

When this evals it bombs.

Does anybody have any suggestions on how to solve this problem ?

Thanks in advance,
Arend