     [request]
     (let [descriptions (read-all-descriptions)
           user-name    (get (get (request :cookies) "user-name") :value)]
-        ;(println descriptions)
+        ;(println-and-flush descriptions)
         (-> (http-response/response (html-renderer-descriptions descriptions user-name))
             (http-response/content-type "text/html"))))
 
 (defn return-file
     [file-name content-type]
     (let [file (new java.io.File "www" file-name)]
-        (println "Returning file " (.getAbsolutePath file))
-        (println "")
+        (println-and-flush "Returning file " (.getAbsolutePath file))
+        (println-and-flush "")
         (-> (http-response/response file)
             (http-response/content-type content-type))))
 
 (defn handler
     "Handler that is called by Ring for all requests received from user(s)."
     [request]
-    (println "request URI: " (request :uri))
+    (println-and-flush "request URI: " (request :uri))
     (let [uri (request :uri)]
         (condp = uri
             "/favicon.ico"       (return-file "favicon.ico" "image/x-icon")

    (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

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

