X-Git-Url: http://dolda2000.com/gitweb/?a=blobdiff_plain;f=lib%2Fguile%2Fdolcon%2Futil.scm;h=5276ba8dfc9bfb41448f2d12e80b9ad9e5af5c97;hb=1a893343f388e2bde1ba33dfea9e8f5a48a2f70b;hp=404c491981088832b3d94bf1c82b78e701de727f;hpb=e6848bc1b0651676cc2e2bf3c3cd43e2a8001051;p=doldaconnect.git

diff --git a/lib/guile/dolcon/util.scm b/lib/guile/dolcon/util.scm
index 404c491..5276ba8 100644
--- a/lib/guile/dolcon/util.scm
+++ b/lib/guile/dolcon/util.scm
@@ -64,10 +64,10 @@
 				   (begin (fn-updattr (car ires) a (cadr ires))
 					  (notify a (cdr (assq (car ires) fnetnodes)))))))))
       (dc-loop-reg ".notify" 601 (lambda (r er) (let* ((ires (dc-intresp r))
-						       (hubform (assq (car ires) fnetnode)))
+						       (hubform (assq (car ires) fnetnodes)))
 						  (if hubform
 						      (begin (fn-updattr (car ires) 'state (list-ref '(syn hs est dead) (cadr ires)))
-							     (notify 'state (cdr (assq (car ires) fnetnodes))))))))
+							     (notify 'state (cdr hubform)))))))
       (dc-loop-reg ".notify" 602 (lambda (r er) (ua r 'name)))
       (dc-loop-reg ".notify" 605 (lambda (r er) (ua r 'users)))
       (dc-loop-reg ".notify" 604 (lambda (r er)