Comment 1 for bug 174594

Weird. This works here:

Ikarus Scheme version 0.0.2patched+ (revision 1193, build 2007-12-07)
Copyright (c) 2006-2007 Abdulaziz Ghuloum

> (define-record-type t (fields (mutable x)))
> (define x (make-t 1))
> (t-x-set! x x)
> (printf "~s\n" x)
#0=#[t #0#]
> x
#0=#[t #0#]
> (display x)
#0=#[t #0#]