         (println word)
         (println search-results)
         (if user-name
-            (-> (http-response/response (html-renderer/render-front-page word user-name search-results))
+            (-> (http-response/response (html-renderer/render-front-page word user-name search-results message))
                 (http-response/set-cookie :user-name user-name {:max-age 36000000})
                 (http-response/content-type "text/html"))
-            (-> (http-response/response (html-renderer/render-front-page word user-name search-results))
+            (-> (http-response/response (html-renderer/render-front-page word user-name search-results message))
                 (http-response/content-type "text/html")))))
 
 (defn process-front-page

    (doseq [word words]
        (db-interface/add-new-word-into-dictionary word user-name)))

(defn process-add-words
    [request]
    (let [input (-> (:params request) (get "new-words"))
          words (if input (clojure.string/split input #"[\s,]"))
          user-name (get-user-name request)]
          (if words
              (store-words words user-name))
        (finish-processing request nil)))

(defn perform-operation
    [request]

        user-name))

(defn finish-processing
    [request search-results message]
    (let [params        (:params request)
          cookies       (:cookies request)
          word          (get params "word")
