anchor.diff:        (return-from do-immhelp-topic)))
     (send-to-char ch "No items were found matching your search criteria.~%"))
   
  -(defcommand (ch "olchelp") ()
  +(defcommand (ch "olchelp") (:immortal)
     (send-help-item ch (find 700 *help-items* :key 'idnum-of)))
   
  -(defcommand (ch "olchelp" topic) ()
  +(defcommand (ch "olchelp" topic) (:immortal)
     (dolist (item *help-items*)
       (when (and (not (zerop (logand 1 (groups-of item))))
                  (term-matches-keywords topic (keywords-of item)))
  
positive.code: (defconstant +hflag-modified+ (ash 1 2)) ; help topic has been modified
  
  (defparameter +help-flags+ #("!APP" "IMM+" "MOD"))
  
  (defparameter +help-groups+
    #("OLC" "MISC" "NEWB" "SKIL" "SPEL" "CLAS" "CITY" "PLR" "MAGE" "CLE"
      "THI" "WAR" "BARB" "PSI" "PHY" "CYB" "KNIG" "RANG" "BARD" "MONK"
      "MERC" "HEDT" "HGOD" "IMM" "QCTR"))
  
  
  (defvar *help-items* nil)
  
  
negative.code:       ((null item)
         (send-to-char ch "Unable to find item.~%"))
        (t
         (send-help-item-stat ch item)))))
  
  (defcommand (ch "hcollect" "search" term) (:immortal)
    (with-pagination ((link-of ch))
  