           new-description     (get params "new-description")
           new-user-name       (get params "user-name")
           old-user-name       (get (get cookies "user-name") :value)]
-          (println "Incoming cookies: " cookies)
+          (println-and-flush "Incoming cookies: " cookies)
           (let [response (process package new-description format new-user-name old-user-name)]
-              (println "Outgoing cookies: " (get response :cookies))
+              (println-and-flush "Outgoing cookies: " (get response :cookies))
               response
           )))
 

    (if (and (not-empty-parameter? package) (not-empty-parameter? description))
        (let [date (format-date-time (get-calendar))]
            (jdbc/insert! changes-db :changes {:date_time date :user_name user-name :package package :description description})
            (println date user-name package)
        )))

(defn render-html-header

     :subname     "changes.db"
    })

(defn println-and-flush
    "Original (println) has problem with syncing when it's called from more threads. This function is a bit better."
    [& more]
    (.write *out* (str (clojure.string/join " " more) "\n"))
    (flush))

(defn get-calendar
    "Gets a calendar using the default time zone and locale."
    []
