Index: stml2.scm
==================================================================
--- stml2.scm
+++ stml2.scm
@@ -51,11 +51,11 @@
   ;; ports and log file
   (curr-err       #f)
   (log-port       (current-error-port))
   (logfile        "/tmp/stml.log")
   (seen-pages     '())
-  (page-dir-style  #t)
+  (page-dir-style  'flat)
   (debug-mode      #f)
   (session-id      #f)
   (request-method  #f)
   (domain          "localhost")
   (twikidir        #f)
@@ -2423,10 +2423,11 @@
   (session:get-vars session)
 
   (sdat-log-port-set! session ;; (current-error-port))
 		      (open-output-file (sdat-logfile session) #:append))
   (s:validate-inputs)
+  (change-directory (sdat-sroot session))
   (session:run-actions session)
   (sdat-pagedat-set! session
 		     (append (sdat-pagedat session)
 			     (s:call (sdat-toppage session))))
   (if (eq? (sdat-page-type session) 'html) ;; default is html.