@@ -37,11 +37,19 @@
 (declare (uses dbfile))
 
 (use srfi-69)
 
 (module archivemod
-	*
+	(
+	 archive:get-archive-disks
+	 archive:allocate-new-archive-block
+	 archive:get-timestamp-dir
+	 archive:megatest-db
+	 archive:bup-get-data
+	 archive:restore-db
+
+	 )
 
 (import scheme)
 (cond-expand
  (chicken-4
   
@@ -121,11 +129,11 @@
 	srfi-69
 	typed-records
 	z3
 	)
 	
-(include "common_records.scm")
+;; (include "common_records.scm")
 ;; (include "db_records.scm")
 
 ;;======================================================================
 ;; 
 ;;======================================================================