@@ -16,11 +16,11 @@
 	   exn
 	   (begin
 	     (debug:print 2 "ERROR: problem accessing db " dbpath
 			  ((condition-property-accessor 'exn 'message) exn))
 	     (exit 1))
-          ;  (print  "calling proc " proc "db path " dbpath )
+            ;(print  "calling proc " proc "db path " dbpath )
 	   (call-with-database
             dbpath
 	    (lambda (db)
 	       ;(print 0 "calling proc " proc " on db " db)
 	      (set-busy-handler! db (busy-timeout 10000)) ;; 10 sec timeout
@@ -28,10 +28,11 @@
 	      (proc db)))))
 	(print 0 "ERROR: invalid path for storing database: " *db-path*)))
 
 ;;execute a query
 (define (sauthorize:db-qry db qry)
+  ;(print qry)
   (exec (sql db  qry)))
 
 
 (define (sauthorize:do-as-calling-user proc)
   (let ((eid (current-effective-user-id))