 	(fsm-connect host epmd-port #'epmd-process "n" cont fail)))))
 
 (defun epmd-port-please (node host cont &optional fail-cont)
-  (fsm-connect host epmd-port #'epmd-process (concat "p" node) cont fail-cont))
+  (fsm-connect host epmd-port #'epmd-process (concat "z" node) cont fail-cont))
 
 ;; (defun epmd-login (nodename &optional cont fail-cont)
 ;;   (fsm-connect host epmd-port #'epmd-process (epmd-make-alive-req nodename)

  (fsm-terminate (substring arg 4)))

(defun epmd-recv-port-resp (event data)
  (ecase event
    ((data)
     (assert (= (length arg) 2))
     (fsm-terminate (+ (ash    (elt arg 0) 8)
		       (logand (elt arg 1) 255))))
    ((closed)
     (fsm-fail))))


			     arg)))
  (ecase (elt arg 0)
    ((?n) (fsm-change-state #'epmd-recv-names-resp))
    ((?z) (fsm-change-state #'epmd-recv-port-resp))
    ((?a) (fsm-change-state #'epmd-recv-alive-resp))))

(defun epmd-recv-names-resp (event data)
