made variadic str not retain seq

1 files changed, 5 insertions, 4 deletions

diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj
index 4415d9bc..4f51ace9 100644
--- a/src/clj/clojure/boot.clj
+++ b/src/clj/clojure/boot.clj
@@ -315,10 +315,11 @@
   ([#^Object x]
    (if (nil? x) "" (. x (toString))))
   ([x & ys]
-   (loop [sb (new StringBuilder #^String (str x)) more ys]
-     (if more
-       (recur (. sb  (append (str (first more)))) (rest more))
-       (str sb)))))
+     ((fn [#^StringBuilder sb more]
+          (if more
+            (recur (. sb  (append (str (first more)))) (rest more))
+            (str sb)))
+      (new StringBuilder #^String (str x)) ys)))
 
 (defn symbol
   "Returns a Symbol with the given namespace and name."