anchor.diff:  (define (print-character ostr ch)
     (if *print-readably*
         (begin
  -        (write-string ostr "#\\")
  +        (write-character ostr #\\)
           (define name (assoc ch character-names))
           (write-string ostr (if name (character-string ch) (cdr name))))
         (write-string ostr (character-string ch))))
  
positive.code: 
  (define (print-number ostr num)
    (if (= num 0)
        (write-string ostr "0")
        (begin
          (unless (and (<= 2 *print-radix*)
                       (<= *print-radix* (string-length print-number-digits)))
  
negative.code:     (write-string ostr " . ")
      (print ostr l))
  
    (write-character ostr #\)))
  
  (define (print ostr obj)
    (cond ((pair? obj)
  