           url-prefix    (get-url-prefix request)]
         (log/info "Incoming cookies: " cookies)
         (log/info "Word to search: " word)
-        (log/info "Search results: " search-results)
+        (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})

(defn words->vector
    [words]
    (for [word words]
        (vals word)))

(defn process-wordlist-json
    [request dictionary-type]

(defn store-word
    "Store one word into the dictionary."
    [word description user-name dictionary-type]
    (log/info "About to store following word:" word " with description: " description
             " into dictionary: " (str dictionary-type))
    (db-interface/add-new-word-into-dictionary word description (or user-name "(*unknown*)") dictionary-type))

(defn store-words
    "Store sequence of words into the dictionary."
    [words user-name dictionary-type]
    (log/info "About to store following words:" words)
    (doseq [word words]
        (db-interface/add-new-word-into-dictionary word user-name dictionary-type)))

