*print-circle* bug?

[verzullj@cs.rpi.edu (Joseph Verzulli)]

   The following behavior of *print-circle* seems incorrect in MCL 2.0b1:

    (defstruct foo
      a)

    (setq p '(m n o))

    (setq x1 (make-foo :a p))
    (setq x2 (make-foo :a (cdr p)))

    (setq *print-circle* t)

    (list x1 x2)
        ==> (#S(FOO :A (M . #1=(N O)) #S(FOO :A #1#))

   The parentheses are not balanced: there should be another right paren
after "... (N O))".

   Does anyone know how to correct this?