diff --git a/botcore.rkt b/botcore.rkt
index 2378077..091b9c0 100644
--- a/botcore.rkt
+++ b/botcore.rkt
@@ -22,7 +22,10 @@
     
    [(list-rest "quit" (list message))
     (match (admin-info (first userinfo))
-    [0 (quit (first message))]
+    [0 (match message
+           [(list-rest quit-msg _)
+            (quit quit-msg)]
+         [_ 'nil])]
     [_ 'nil])]
     
    [result (send (format "~a is ~a" (first result) (dispatch userinfo content)))]))