Fixing session-id check.

1 files changed, 2 insertions, 1 deletions

diff --git a/simple.scm b/simple.scm
index 6166fde..e8ddd08 100644
--- 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)