diff --git a/dev/examples-to-docs.el b/dev/examples-to-docs.el
index 1a02e1a..345abd4 100644
--- a/dev/examples-to-docs.el
+++ b/dev/examples-to-docs.el
@@ -29,7 +29,8 @@
 (defvar functions ())
 
 (defun example-to-string (example)
-  (-let [(actual sym expected) example]
+  (-let (((actual sym expected) example)
+         (print-quoted t))
     (--> (cond
           ((eq sym '=>) (format "=> %S" expected))
           ((eq sym '~>) (format "~> %S" expected))
diff --git a/dev/examples-to-info.el b/dev/examples-to-info.el
index ecb1f62..da5da5d 100644
--- a/dev/examples-to-info.el
+++ b/dev/examples-to-info.el
@@ -30,7 +30,7 @@
 
 (defun dash--print-lisp-as-texi (obj)
   "Print Lisp OBJ suitably for Texinfo."
-  (save-excursion (prin1 obj))
+  (save-excursion (let ((print-quoted t)) (prin1 obj)))
   (while (re-search-forward (rx (| (group "\\?")
                                    (group (in "{}"))
                                    (group ?\' symbol-start "nil" symbol-end)