Fixing session-id check.

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)