anchor.diff:  		   (format pane "~a:" slot-name))
   		 (inspect-object (slot-value object slot-name) pane)))))))
   
  -(defparameter *object-representation-max-length* 60
  +;; FIXME: should this be removed? It's really ugly.
  +(defparameter *object-representation-max-length* 300
     "Maximum number of characters of an object's textual representation
   that are allowed before abbreviation kicks in")
   
  
positive.code: 			    (prin1 object string))))
        (if (< (length representation) *object-representation-max-length*)
  	  (princ representation pane)
  	  (format pane "instance of ~S" (class-name (class-of object)))))))
  
  (defmethod inspect-object ((object standard-object) pane)
    (inspect-structure-or-object object pane))
  
negative.code:           (inspect-object uses pane)))))
  
  (defmethod inspect-object ((object vector) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (formatting-table (pane)
        (formatting-row (pane)
          (formatting-cell (pane)
  