@@ -30,11 +30,12 @@
 (declare (unit common))
 (declare (uses commonmod))
 (declare (uses debugprint))
 
 (import commonmod
-	debugprint)
+	;; debugprint
+	)
 
 (include "common_records.scm")
 
 
 ;; (require-library margs)