@@ -653,16 +653,16 @@
 ;;======================================================================
 ;; L O C K E R S   A N D   B L O C K E R S 
 ;;======================================================================
 
 ;; block further accesses to databases. Call this before shutting db down
-(define (common:db-block-further-queries)
+#;(define (common:db-block-further-queries)
   (mutex-lock! *db-access-mutex*)
   (set! *db-access-allowed* #f)
   (mutex-unlock! *db-access-mutex*))
 
-(define (common:db-access-allowed?)
+#;(define (common:db-access-allowed?)
   (let ((val (begin
 	       (mutex-lock! *db-access-mutex*)
 	       *db-access-allowed*
 	       (mutex-unlock! *db-access-mutex*))))
     val))
@@ -2474,11 +2474,12 @@
     ))
 
 ;;======================================================================
 ;; E N V I R O N M E N T   V A R S
 ;;======================================================================
-(define (bb-check-path #!key (msg "check-path: "))
+
+#;(define (bb-check-path #!key (msg "check-path: "))
   (let ((path (or (get-environment-variable "PATH") "none")))
     (debug:print-info 0 *default-log-port* (conc msg" : $PATH="path))
     (if (string-match "^.*/isoenv-core/.*" path)
         (debug:print-error 0 *default-log-port* (conc msg" : !!ISOENV PRESENT!!")) ;; remove for prod
         (debug:print-info 1 *default-log-port* (conc msg" : **no isoenv present**")))))