anchor.diff:    ;; if no port specified, then use port-mapper to find it
     (unless port
       (setf port 
  -	  (frpc.bind:call-get-port program version 
  +	  (frpc.bind:call-get-port program 
   				     :query-protocol :udp 
   				     :protocol :udp
   				     :host hostname)))
  
positive.code:   (:list :string my-id (:varray* :octet 16))
    stat-res
    (:program nsm 1)
    (:arg-transformer (hostname &key (callback-hostname "localhost") (program 0) (version 0) (proc 0) private)
      (list hostname 
  	  (make-my-id :name callback-hostname
  		      :program program
  		      :version version
  		      :proc proc)
  
negative.code:   (let ((local-hostname (machine-instance)))
      (dolist (server *servers*)
        (handler-case 
            (let ((port (frpc.bind:call-get-port +nsm-program+ 
                                                   :query-protocol :udp
                                                   :host server
                                                   :protocol :udp)))
  