diff --git a/examples/ircd/message.rkt b/examples/ircd/message.rkt
index 50d1b46..9087d3b 100644
--- a/examples/ircd/message.rkt
+++ b/examples/ircd/message.rkt
@@ -64,7 +64,7 @@
 (define (parse-command prefix line)
   (match-define (pregexp #px"^([^ ]+)( +([^:]+)?(:(.*))?)?$" (list _ command _ params _ rest)) line)
   (irc-message prefix
-               command
+               (string-upcase command)
                (string-split (or params ""))
                rest))