--- vandusen.scm.old	2016-04-11 15:41:24.050475951 +0200
+++ vandusen.scm	2016-04-11 15:40:55.986801734 +0200
@@ -151,7 +151,7 @@
                               command: "PRIVMSG"
                               body: (match-body matcher)))
 
-  (let ((matcher `(: ,($ 'nick) ":" (+ whitespace) ,matcher)))
+  (let ((matcher `(: ,($ 'nick) (or #\: #\,) (+ whitespace) ,matcher)))
     (irc:add-message-handler! connection (let ((handle (make-handler matcher)))
                                            (lambda (m)
                                              (and (eq? (string-ref (car (irc:message-parameters m)) 0) #\#)