Fixing session-id check.

2015-06-18 15:43:47 -07:00
parent 19fb257769
commit c64ca08f1c
1 changed files with 2 additions and 1 deletions
--- a/simple.scm
+++ b/simple.scm
@@ -235,7 +235,8 @@
 (define (get-sid #!optional force-read-sid)
  (and (or (enable-session) force-read-sid)
       (if (enable-session-cookie)
-           (or (read-cookie (session-cookie-name)) ($ 'sid))
+           (or (read-cookie (session-cookie-name)) ($ 'sid)
+               (sid))
           ($ 'sid))))

 (define (redirect-to new-uri)