anchor.diff:            (t (setf success t)))
           (if success
               (progn
  -              (with-rulisp-db
  -                (postmodern:with-transaction ()
  -                  (postmodern:execute (format nil
  -                                              "UPDATE users SET password = '~A'
  -                                                WHERE user_id = (SELECT user_id FROM forgot WHERE mark = '~A')"
  -                                              (calc-md5-sum password)
  -                                              mark))
  -                  (postmodern:execute (format nil
  -                                              "DELETE FROM forgot WHERE mark = '~A'"
  -                                              mark))))
  +             (with-rulisp-db
  +               (postmodern:with-transaction ()
  +                 (postmodern:execute (:update 'users
  +                                              :set 'password (calc-md5-sum password)
  +                                              :where (:= 'user_id (:select 'user_id
  +                                                                           :from 'forgot
  +                                                                           :where (:= 'mark mark)))))
  +                 (postmodern:execute (:delete-from 'forgot :where (:= 'mark mark))))) 
                 (tmplpath "account/reset-password-success.xml"))
               (progn
                 (fill-form reset-form (hunchentoot:post-parameters*))
  
positive.code: 
  (defun register-mark-exist-p (mark)
    (with-rulisp-db
      (postmodern:query (format nil
                                "SELECT mark FROM confirmations WHERE mark = '~A'"
                                mark)
                        :single)))
    
  (define-simple-route registration-confirmation ("register/confirmation/:(mark)"
  
negative.code: 
  (defun forgot-mark-exist-p (mark)
    (with-rulisp-db
      (postmodern:query (:select 'mark
                                 :from 'forgot
                                 :where (:= 'mark  mark))
                        :single)))
  
  (define-simple-route reset-password ("forgot-password/:(mark)"
  