Ticket #1161: patch.diff

trunk/irc.scm

@@ -342 +342 @@
    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)