diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el
index 8d5be4254..20c20acc3 100644
--- a/lisp/org-mouse.el
+++ b/lisp/org-mouse.el
@@ -295,7 +295,7 @@ nor a function, elements of KEYWORDS are used directly."
 	      ((functionp itemformat) (funcall itemformat keyword))
 	      ((stringp itemformat) (format itemformat keyword))
 	      (t keyword))
-	     (list 'funcall function keyword)
+	     `(funcall #',function ,keyword)
 	     :style (cond
 		     ((null selected) t)
 		     ((functionp selected) 'toggle)