     [request title]
     (perform-operation request)
     (let [search-results (db-interface/read-all-words)]
-        (finish-processing request search-results nil title)))
+        (finish-processing request search-results nil title :unknown)))
 
 (defn process-deleted-words
     [request title]
     (perform-operation request)
     (let [search-results (db-interface/read-deleted-words)]
-        (finish-processing request search-results nil title)))
+        (finish-processing request search-results nil title :unknown)))
 
 (defn process-active-words
     [request title]
     (perform-operation request)
     (let [search-results (db-interface/read-active-words)]
-        (finish-processing request search-results nil title)))
+        (finish-processing request search-results nil title :unknown)))
 
 (defn read-changes-statistic
     []

        (println "stat"    changes-statistic)
        (println "changes" changes)
        (if user-name
            (-> (http-response/response (html-renderer/render-users user-name changes-statistic changes url-prefix title))
                (http-response/set-cookie :user-name user-name {:max-age 36000000})
                (http-response/content-type "text/html"))
            (-> (http-response/response (html-renderer/render-users user-name changes-statistic changes url-prefix title))
                (http-response/content-type "text/html")))))

(defn process-user-info

            "/add-word"          (process-add-word      request)
            ;"/find-words"       (process-find-words    request)
            "/add-words"         (process-add-words     request)
            "/users-whitelist"   (process-user-list     request title :whitelist)
            "/users-blacklist"   (process-user-list     request title :blacklist)
            "/user"              (process-user-info     request title)
            "/wordlist/json"     (process-wordlist-json request)
            "/wordlist/text"     (process-wordlist-text request)
