       (erase-buffer)
       (when (fboundp 'markdown-mode) (markdown-mode))
       (insert
-       (string-join
-        (mapcar
-         (lambda (el) (apply #'format el))
-         `(("<!-- copy entire buffer output and paste in an issue at:")
-           ("https://github.com/raxod502/straight.el/issues/new/choose -->")
-           ,@(when preamble
-               `(("<details><summary>Test Case</summary>")
-                 ("\n```emacs-lisp")
-                 ("%s" ,@preamble)
-                 ("```")
-                 ("</details>\n")))
-           ,(list (format-time-string "- Test run at: `%Y-%m-%d %H:%M:%S`"))
-           ("- system-type: `%s`" ,system-type)
-           ("- straight-version: `%s`" ,(straight-version))
-           ("- emacs-version: `%s`" ,(emacs-version))
-           ("\n<details><summary>Output</summary>")
-           ("\n```emacs-lisp")
-           ("%s" ,output)
-           ("```")
-           ("</details>")))
+       (mapconcat
+        (lambda (el) (apply #'format el))
+        `(("<!-- copy entire buffer output and paste in an issue at:")
+          ("https://github.com/raxod502/straight.el/issues/new/choose -->")
+          ,@(when preamble
+              `(("<details><summary>Test Case</summary>")
+                ("\n```emacs-lisp")
+                ("%s" ,@preamble)
+                ("```")
+                ("</details>\n")))
+          ,(list (format-time-string "- Test run at: `%Y-%m-%d %H:%M:%S`"))
+          ("- system-type: `%s`" ,system-type)
+          ("- straight-version: `%s`" ,(straight-version))
+          ("- emacs-version: `%s`" ,(emacs-version))
+          ("\n<details><summary>Output</summary>")
+          ("\n```emacs-lisp")
+          ("%s" ,output)
+          ("```")
+          ("</details>"))
         "\n")))))
 
 (defun straight-bug-report--report-form (form)

                 (straight-are-you-sure
                  (format (concat "The following packages were not pushed:"
                                  "\n\n  %s\n\nReally write lockfiles?")
                          (string-join
                           (mapcar (lambda (recipe)
                                     (plist-get recipe :local-repo))
                                   unpushed-recipes)
                           ", ")))))))
    (straight--map-repos
     (lambda (recipe)
       (straight--with-plist recipe

    ;; Add indentation.
    (if indent
        (let ((indent (make-string (or indent 0) ? )))
          (mapconcat (lambda (part) (concat indent part))
                     parts "\n"))
      parts)))

(cl-defun straight--uniquify (prefix taken)
