anchor.diff:  (define-handler (join-event event) (:modulevar notify)
     (let ((newlist ()))
       (dolist (note (uc:config-tree :notes))
  -      (if (and (string-equal (nick note) (nick event))
  +      (if (and (stringp (nick note))
  +               (string-equal (nick note) (nick event))
                  (string= (channel note) (channel event))
                  (string= (server note) (string-upcase (name (server event))))
                  (eql (trigger note) :join))
  
positive.code: 
  (define-timer notify (note) (:documentation "Used for timed notifications.")
    (v:debug :notify "Delivering note ~a." note)
    (irc:privmsg (channel note) (format NIL "~a wrote on ~a : ~a" (nick note) (timestamp note) (message note))
                 :server (get-server (find-symbol (server note) "KEYWORD")))
    (setf (uc:config-tree :notes)
          (delete note (uc:config-tree :notes))))
  
negative.code: (define-handler (privmsg-event event) (:modulevar notify)
    (let ((newlist ()))
      (dolist (note (uc:config-tree :notes))
        (if (and (stringp (nick note))
                 (string-equal (nick note) (nick event))
                 (string= (channel note) (channel event))
                 (string= (server note) (string-upcase (name (server event))))
                 (eql (trigger note) :message))
  