 (defn store-word
     "Store one word into the dictionary."
     [word description user-name dictionary-type]
-    (println "About to store following word:" word " with description: " description
+    (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]
-    (println "About to store following words:" words)
+    (log/info "About to store following words:" words)
     (doseq [word words]
         (db-interface/add-new-word-into-dictionary word user-name dictionary-type)))
 

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

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

          changes           (read-changes)
          user-name         (get-user-name request)
          url-prefix        (get-url-prefix request)]
        (log/info "stat"    changes-statistic)
        (log/info "changes" changes)
        (if user-name
            (-> (http-response/response (html-renderer/render-users user-name changes-statistic changes url-prefix title mode))
                (http-response/set-cookie :user-name user-name {:max-age 36000000})
