@@ -29,11 +29,11 @@
 (declare (uses keys))
 (declare (uses debugprint))
 
 (include "common_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 ;; return list (path fullpath configname)
 (define (find-config configname #!key (toppath #f))
   (if toppath
       (let ((cfname (conc toppath "/" configname)))