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:     (send-to-char ch "Currently speaking: &c~a&n~%"
                    (tongue-name (current-tongue-of k)))
  
      (when (tongues-heard-of ch)
        (send-to-char ch "Recently heard: ~{~a~^, ~}~%"
                      (mapcar 'name-of (tongues-heard-of ch))))
  
      (send-to-char ch "Known Languages:~%")
      (loop
  
negative.code:           (when param
              (send-to-char ch "Load param:~%~a~%" param)))))
  
      (when (not (is-npc k))
        (send-to-char ch "Hunger: ~d, Thirst: ~d, Drunk: ~d~%"
                      (get-condition k +full+)
  