           new-user-name (get params "user-name")
           old-user-name (get (get cookies "user-name") :value)
           user-name     (or new-user-name old-user-name)]
-        (println "old" old-user-name)
-        (println "new" new-user-name)
-        (println "-> " user-name)
+        (log/info "old user name" old-user-name)
+        (log/info "new user name" new-user-name)
+        (log/info "effective -> " user-name)
         user-name))
 
 (defn get-title

    [request mode]
    (let [to-delete   (-> (:params request) (get "delete"))
          to-undelete (-> (:params request) (get "undelete"))]
          (println "to delete" to-delete)
          (println "to undelete" to-undelete)
          (if to-delete
              (db-interface/delete-word to-delete mode))
          (if to-undelete

          url-prefix    (get-url-prefix request)]
        (log/info "Incoming cookies: " cookies)
        (log/info "Word to search: " word)
        (log/trace "Search results: " search-results)
        (if user-name
            (-> (http-response/response (html-renderer/render-front-page word user-name search-results message url-prefix title emender-page mode))
                (http-response/set-cookie :user-name user-name {:max-age 36000000})
