 
 (defn wrap-line [text]
   ;; see http://rosettacode.org/wiki/Word_wrap#Clojure
-  (string/join "\n" (re-seq (re-pattern (str ".{1," line-length "}(?:\\s|\\z)")) text)))
+  (string/join newline (re-seq (re-pattern (str ".{1," line-length "}(?:\\s|\\z)")) text)))
 
 (defn- entry-heading-str
   [{:keys [creator title subtitles name-of-part source-publisher source-date]}]

                (not (string/blank? recommendation)) (assoc :recommendation recommendation))
        path-to-numbers (layout/path-to-number items)]
    (string/join
     "\n\n"
     (concat
      [title
       (format "%s-%s" year issue)

(defn- impressum []
  (let [creator (layout/translations :sbs)]
    (string/join
     newline
     ["Herausgeber:"
      creator
      "Grubenstrasse 12"
