--- command.lisp	(revision 212)
+++ command.lisp	(working copy)
@@ -243,6 +243,15 @@
 (defmethod notice ((connection connection) (channel channel) (message string))
   (notice connection (name channel) message))

+(defmethod action ((connection connection) (target string) (message string))
+  (ctcp connection target (concatenate 'string "ACTION " message)))
+
+(defmethod action ((connection connection) (user user) (message string))
+  (action connection (nickname user) message))
+
+(defmethod action ((connection connection) (channel channel) (message string))
+  (action connection (name channel) message))
+