     (db-interface/read-changes-for-user user-name))
 
 (defn process-user-list
-    [request title]
+    [request title mode]
     (let [changes-statistic (read-changes-statistic)
           changes           (read-changes)
           user-name         (get-user-name request)

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

          message   (add-word-message word proper-word)]
          (if (and proper-word (seq word))
              (store-word word description user-name))
        (finish-processing request nil message true :unknown))) ; in zw mode every time!

(defn process-add-words
    [request]
