diff options
| -rw-r--r-- | web/panettone/src/panettone.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp index 3d1bf41b4a5c..15d3ba7577fc 100644 --- a/web/panettone/src/panettone.lisp +++ b/web/panettone/src/panettone.lisp @@ -365,7 +365,8 @@ successful, `nil' otherwise" (progn (setf (hunchentoot:session-value 'user) user) (hunchentoot:redirect (or original-uri "/"))) - (render/login :message "Invalid credentials"))) + (render/login :message "Invalid credentials" + :original-uri original-uri))) (defroute logout ("/logout" :method :post) () (hunchentoot:delete-session-value 'user) |