Index: session.scm
==================================================================
--- session.scm
+++ session.scm
@@ -606,11 +606,10 @@
 ;;  'both     => load control and view (anything other than view or control
 ;;  'view     => load view only
 ;;  'control  => load control only
 (define (session:call-parts self page #!key (parts 'both))
   (sdat-set-curr-page! self page)
-  (session:log self "page-dir-style: " (sdat-get-page-dir-style self))
   (let* ((dir-style    (sdat-get-page-dir-style self));; (equal? (sdat-get-page-dir-style self) "onedir")) ;; flag #t for onedir, #f for old style
 	 (dir          (string-append (sdat-get-sroot self) 
 				      (if dir-style 
 					  (conc "/pages/")
 					  (conc "/pages/" page)))))