anchor.diff:                    (aref (value-of obj) 2)
                     (aref +item-kind-values+ (kind-of obj) 3)
                     (aref (value-of obj) 3))
  -    (when (eql (proto-of (shared-of obj)) obj)
  -      (send-to-char ch "Spec_param:~%~a~%" (func-param-of obj)))
  +    (when (and (eql (proto-of (shared-of obj)) obj)
  +               (func-param-of (shared-of obj)))
  +      (send-to-char ch "Spec_param:~%~a~%" (func-param-of (shared-of obj))))
       (send-to-char ch "Affections: ~{~a~^, ~}~%"
                     (or
                      (loop
  
positive.code:                   (cost-per-day-of (shared-of obj))
                    (timer-of obj))
      (let ((room (where-obj obj)))
        (send-to-char ch "Absolute location: ~a (~d)~%"
                      (name-of room)
                      (number-of room)))
      (send-to-char ch "In room: &c~d&n, In obj: &g~a&n, Carry: &g~a&n, Worn: &g~a&n, Aux: &g~a&n~%"
                    (when (in-room-of obj) (number-of (in-room-of obj)))
                    (when (in-obj-of obj) (name-of (in-obj-of obj)))
                    (when (carried-by-of obj) (name-of (carried-by-of obj)))
                    (when (worn-by-of obj) (name-of (worn-by-of obj)))
                    (when (aux-obj-of obj) (name-of (aux-obj-of obj))))
      (send-to-char ch "Material: [&y~a&n (~d)], Maxdamage: [~d], Damage: [~d]~%"
                    (aref +material-names+ (material-of obj))
                    (material-of obj)
  
negative.code:     (send-to-char ch "Currently speaking: &c~a&n~%"
                    (tongue-name (current-tongue-of k)))
  
      (when (and (not (is-npc k))
                 (in-room-of k)
                 (tongues-heard-of k))
        (send-to-char ch "Recently heard: ~{~a~^, ~}~%"
                      (mapcar 'name-of (tongues-heard-of k))))
  
      (send-to-char ch "Known Languages:~%")
      (loop
  