@@ -25,11 +25,11 @@
 (declare (uses common))
 (declare (uses debugprint))
 
 (include "common_records.scm")
 
-(import debugprint)
+;; (import debugprint)
 
 ;; Puts out all combinations
 (define (process-itemlist hierdepth curritemkey itemlist)
   (let ((res '()))
     (if (not hierdepth)