Index: session.scm
==================================================================
--- session.scm
+++ session.scm
@@ -52,11 +52,11 @@
    session-cookie
    curr-err
    log-port
    logfile
    seen-pages
-   page-dir-style
+   page-dir-style  ;; #t = new style, #f = old style
    debugmode))
 
 ;; SPLIT INTO STRAIGHT FORWARD INIT AND COMPLEX INIT
 (define-method (initialize (self <session>) initargs)
   (call-next-method)
@@ -74,11 +74,11 @@
   (slot-set! self 'sroot       "./")
   (slot-set! self 'session-cookie #f)
   (slot-set! self 'curr-err #f)
   (slot-set! self 'log-port (current-error-port))
   (slot-set! self 'seen-pages '())
-  (slot-set! self 'page-dir-style #t) ;; #t : pages/<pagename>_(view|control).scm
+  (slot-set! self 'page-dir-style #t) ;; #t : pages/<pagename>_(view|cntl).scm
                                       ;; #f : pages/<pagename>/(view|control).scm 
   (slot-set! self 'debugmode #f)
   (for-each (lambda (slot-name)
               (slot-set! self slot-name (make-hash-table)))
             (list 'pagevars 'sessionvars 'globalvars 'pagevars-before 
@@ -498,11 +498,11 @@
 ;; May 2011, putting all pages into one directory for the following reasons:
 ;;   1. want filename to reflect page name (emacs limitation)
 ;;   2. that's it! no other reason. could make it configurable ...
 (define-method (session:call-parts (self <session>) page parts)
   (slot-set! self 'curr-page page)
-  (session:log self "page-dir-style: " (slot-ref self 'page-dir-style))
+  ;; (session:log self "page-dir-style: " (slot-ref self 'page-dir-style))
   (let* ((dir-style ;; (equal? (slot-ref self 'page-dir-style) "onedir")) ;; flag #t for onedir, #f for old style
 	  (slot-ref self 'page-dir-style))
 	 (dir     (string-append (slot-ref self 'sroot) 
 				 (if dir-style 
 				     (conc "/pages/")
@@ -516,11 +516,11 @@
 	 (load-view    (and (file-exists? view)
 			    (or (eq? parts 'both)(eq? parts 'view))))
 	 (load-control (and (file-exists? control)
 			    (or (eq? parts 'both)(eq? parts 'control))))
 	 (view-dat   '()))
-    (session:log self "dir-style: " dir-style)
+    ;; (session:log self "dir-style: " dir-style)
  ;;   (sugar "/home/matt/kiatoa/stml/sugar.scm" ))
     ;; (print "dir=" dir " control=" control " view=" view " load-view=" load-view " load=control=" load-control)
     (if load-control
 	(begin
 	  (load control)