distel and emacs unicode-2 (23.x)

When node casper is not running, C-d C-h l yields the following message:

nodedown: casper@localhost

No surprise there. 

However,  when casper is up with  'erl -R 9 -sname casper', C-d C-h l 
yields the following messages:

error in process sentinel: or: Assertion failed: (not (null fsm-state))
error in process sentinel: Assertion failed: (not (null fsm-state))
nodedown: casper@localhost
error in process filter: open-network-stream: localhost/-30490 Servname 
not supported for ai_socktype
error in process filter: localhost/-30490 Servname not supported for 
ai_socktype


Setting debug-on-error to t yields:

Debugger entered--Lisp error: (cl-assertion-failed (not (null fsm-state)))
  signal(cl-assertion-failed ((not (null fsm-state))))
  (or (not (null fsm-state)) (signal (quote cl-assertion-failed) (list 
...)))
  (progn (or (not ...) (signal ... ...)) nil)
  (assert (not (null fsm-state)))
  assert-fsm-invariants()
  fsm-event(closed "deleted\n")
  (save-current-buffer (set-buffer (process-buffer socket)) (fsm-event 
(quote closed) event))
  (with-current-buffer (process-buffer socket) (fsm-event (quote closed) 
event))
  fsm-sentinel(#<process netfsm> "deleted\n")
  kill-buffer(#<buffer  *net-fsm*>)
  (progn (kill-buffer (process-buffer fsm-process)))
  (if fsm-process (progn (kill-buffer ...)))
  (when fsm-process (kill-buffer (process-buffer fsm-process)))
  fsm-shutdown()
  (let ((cont fsm-cont)) (fsm-shutdown) (when cont (funcall cont result)))
  fsm-terminate(-30490)
  (cond ((member* event ...) (assert ...) (fsm-terminate ...)) ((member* 
event ...) (fsm-fail)) ((error "ecase failed: %s, %s" event ...) nil))
  (case event ((data) (assert ...) (fsm-terminate ...)) ((closed) 
(fsm-fail)) (ecase-error-flag))
  (ecase event ((data) (assert ...) (fsm-terminate ...)) ((closed) 
(fsm-fail)))
  epmd-recv-port-resp(data "\210\346")
  funcall(epmd-recv-port-resp data "\210\346")
  (progn (funcall fsm-state event arg))
  (prog1 (progn (funcall fsm-state event arg)) (setq success t))
  (unwind-protect (prog1 (progn ...) (setq success t)) (unless success 
(fsm-fail ...)))
  (let (success) (unwind-protect (prog1 ... ...) (unless success ...)))
  (with-error-cleanup (fsm-fail (format "Error on event %S in state %S" 
event fsm-state)) (funcall fsm-state event arg))
  fsm-event(data "\210\346")
  fsm-deliver-data("\210\346")
  (progn (fsm-deliver-data string))
  (if fsm-state (progn (fsm-deliver-data string)))
  (when fsm-state (fsm-deliver-data string))
  (save-current-buffer (set-buffer (process-buffer socket)) (when 
fsm-state (fsm-deliver-data string)))
  (with-current-buffer (process-buffer socket) (when fsm-state 
(fsm-deliver-data string)))
  fsm-filter(#<process netfsm> "\210\346")

Can anyone tell me what might be going on?

Thanks,

Matt

-- 
"You do not really understand something unless you can explain it to your grandmother." - Albert Einstein.


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV