mdw-base.lisp: Make section heading for `with-places' more useful.

[lisp] / str.lisp

diff --git a/str.lisp b/str.lisp
index 5cf05aa7deea73e40f794fd6d02c79f426e05bed..a943bae632af21b9047ac99f3cbd8d7598052b22 100644 (file)
--- a/str.lisp
+++ b/str.lisp
@@ -37,7 +37,7 @@ (defun join-strings (del strs)
   (with-output-to-string (s)
     (when strs
       (loop
-        (princ (stringify (pop strs)) s)
+       (princ (stringify (pop strs)) s)
        (unless strs
          (return))
        (princ del s)))))