Index: setup.scm
==================================================================
--- setup.scm
+++ setup.scm
@@ -103,6 +103,10 @@
 (define (s:db)
   (sdat-get-conn s:session))
 
 (define (s:never-called-page? page)
   (session:never-called-page? s:session page))
+
+;; find out if we are in debugmode
+(define (s:debug-mode?)
+  (sdat-get-debugmode s:session))