           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
           )))
 


(defn log-request-information
    [request]
    (println "time:        " (.toString (new java.util.Date)))
    (println "addr:        " (request :remote-addr))
    (println "params:      " (request :params))
    (println "user-agent:  " ((request :headers) "user-agent"))
    (println ""))

(defn get-products-without-descriptions
    [products package-descriptions]

    (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-and-flush date user-name package)
        )))

(defn render-html-header
