* liece-ctcp.el (liece-ctcp-make-menu-command-wrapper): Quote CTCP subcommands.

diff --git a/lisp/liece-ctcp.el b/lisp/liece-ctcp.el
index cadacc3..f7bf96b 100644 (file)
--- a/lisp/liece-ctcp.el
+++ b/lisp/liece-ctcp.el
@@ -53,7 +53,7 @@
           (interactive)
           (dolist (nick liece-nick-region-nicks)
             (funcall (symbol-function
-                      (intern (format "liece-command-ctcp-%s" ,symbol)))
+                      (intern (format "liece-command-ctcp-%s" ',symbol)))
                      nick)))))
 
 (dolist (symbol liece-ctcp-supported-symbols)