           message      (add-words-message proper-words)]
           (if (seq proper-words)
               (store-words proper-words user-name))
-        (finish-processing request nil message nil)))
+        (finish-processing request nil message nil :unknown)))
 
 (defn perform-operation
     [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))) ; in zw mode every time!

(defn process-add-words
    [request]

    (db-interface/read-changes-for-user user-name))

(defn process-user-list
    [request title mode]
    (let [changes-statistic (read-changes-statistic)
          changes           (read-changes)
          user-name         (get-user-name request)
