diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el
index b9209a889..6023b3310 100644
--- a/contrib/lisp/org-export.el
+++ b/contrib/lisp/org-export.el
@@ -3036,7 +3036,7 @@ INFO is a plist holding export options."
 	 ;; User's macros are stored in the communication channel with
 	 ;; a ":macro-" prefix.
 	 (value (org-export-data
-		 (plist-get info (intern (format ":macro-%s" key))) val info)))
+		 (plist-get info (intern (format ":macro-%s" key))) info)))
     ;; Replace arguments in VALUE.
     (let ((s 0) n)
       (while (string-match "\\$\\([0-9]+\\)" value s)