Index: session.scm
==================================================================
--- session.scm
+++ session.scm
@@ -173,11 +173,11 @@
 ;;     (print "dbtype: " dbtype)
 ;;     (sdat-set-dbtype! self (eval dbtype))))
 
 (define (session:setup self)
   (let ((dbtype (sdat-get-dbtype self))
-	(dbinit (sdat-get-dbinit self))
+	(dbinit (eval (sdat-get-dbinit self)))
 	(dbexists #f))
     (let ((dbfname (alist-ref 'dbname dbinit)))
       (if (eq? dbtype 'sqlite3)
 	  (if (file-exists? dbfname)
 	      (begin