@@ -21,11 +21,11 @@
 (declare (unit env))
 (declare (uses debugprint))
 
 (use sql-de-lite) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)
 
-(import debugprint)
+;; (import debugprint)
 
 (define (env:open-db fname)
   (let* ((db-exists (common:file-exists? fname))
 	 (db        (open-database fname)))
     (if (not db-exists)