anchor.diff:                                   (t
                                     "Dark red blood covers everything in sight.")))
                    (setf blood-shown t)))
  -      (when (and (= (vnum-of o) +ice-vnum+)
  +      (when (and (= (vnum-of (shared-of o)) +ice-vnum+)
                    (not ice-shown))
           (send-to-char ch "&r~a.&n~%"
                         (cond
  
positive.code:                                  (format nil "|~a|" dir)
                                   (format nil "~a" dir))))))
  
  (defun look-at-room (ch room ignore-brief)
    (unless (link-of ch)
      (return-from look-at-room))
  
negative.code:   (let ((blood-shown nil)
          (ice-shown nil))
      (dolist (o (contents-of room))
        (when (and (= (vnum-of (shared-of o)) +blood-vnum+)
                   (not blood-shown)
                   (send-to-char ch "&r~a.&n~%"
                                 (cond
  