@@ -21,13 +21,16 @@
 (use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 format md5 message-digest srfi-18)
 
 (declare (unit archive))
 (declare (uses db))
 (declare (uses common))
+(declare (uses debugprint))
 
 (include "common_records.scm")
 (include "db_records.scm")
+
+(import debugprint)
 
 ;;======================================================================
 ;; 
 ;;======================================================================