anchor.diff:                    (string-upcase (name-of object) :end 1)))
         (show-obj-bits object ch stream)
         (when (> count 1)
  -        (format stream "&g [~d]&n" count))
  -      (format stream "~%"))))
  +        (format stream " [~d]" count))
  +      (format stream "&n~%"))))
   
   (defun show-obj-bits (object ch stream)
     (when (is-obj-stat2 object +item2-broken+)
  
positive.code: 
    ;; autoexits
    (when (pref-flagged ch +pref-autoexit+)
        (do-auto-exits ch room))
    (send-to-char ch "~%")
  
    ;; now list characters & objects
    (show-blood-and-ice ch room)
    (send-to-char ch "&g~a&n"
                  (with-output-to-string (s)
                    (list-obj-to-char s (contents-of room) ch :room nil)))
    (send-to-char ch "&y~a&n"
                  (with-output-to-string (s)
                    (list-char-to-char s (people-of room) ch))))
  
  
negative.code:                 (format stream " &g(afk: ~a)&y" (afk-reason-of i))
                  (format stream " &g(afk)&y"))))
  
          (format stream "&n~%")
  
          (unless (pref-flagged ch +pref-notrailers+)
            (desc-char-trailers stream ch i))))))
  