From c64ca08f1c41de3d5026ed6a4e976aa244f488e0 Mon Sep 17 00:00:00 2001
From: Thomas Hintz <t@thintz.com>
Date: Thu, 18 Jun 2015 15:43:47 -0700
Subject: [PATCH] Fixing session-id check.

---
 simple.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)