diff --git a/multiple-cursors-core.el b/multiple-cursors-core.el
index 485aa20..5a37526 100644
--- a/multiple-cursors-core.el
+++ b/multiple-cursors-core.el
@@ -505,7 +505,7 @@ for running commands with multiple cursors.")
 
 (defun mc/dump-list (list-symbol)
   "Insert (setq 'LIST-SYMBOL LIST-VALUE) to current buffer."
-  (let ((value (symbol-value list-symbol)))
+  (symbol-macrolet ((value (symbol-value list-symbol)))
     (insert "(setq " (symbol-name list-symbol) "\n"
             "      '(")
     (newline-and-indent)