Index: trunk/irc.scm
===================================================================
--- trunk/irc.scm	(revision 31596)
+++ trunk/irc.scm	(working copy)
@@ -342,7 +342,7 @@
    con
    (let loop ([hs (irc:connection-handlers con)])
      (cond [(null? hs) (error "undefined message handler" tag)]
-	   [(and (pair? hs) (eq? tag (caar hs))) (cdr hs)]
+	   [(and (pair? (car hs)) (eq? tag (caar hs))) (cdr hs)]
 	   [else (cons (car hs) (loop (cdr hs)))] ) ) ) )
 
 (define (irc:message-receiver msg)