@@ -21,18 +21,24 @@
 ;; 		     (temperature "cool medium hot")
 ;; 		     (season      "summer winter fall spring")))
 
 (declare (unit items))
 (declare (uses common))
-
 (declare (uses commonmod))
 (declare (uses debugprint))
+(declare (uses configfmod))
+
+(module items
+	*
+
+(import scheme chicken data-structures extras ports)
 (import commonmod)
 (import debugprint)
-
-(declare (uses configfmod))
 (import configfmod)
+(import srfi-69
+	srfi-1
+	)
 
 (include "common_records.scm")
 
 ;; Puts out all combinations
 (define (process-itemlist hierdepth curritemkey itemlist)
@@ -212,9 +218,8 @@
 		(items:read-items-file slashf 'slash)
 		(items:read-items-file sxmlf  'sxml)
 		(items:read-items-file spacef 'space))
 	'(()))))
 
-;; (pp (item-assoc->item-list itemdat))
-
+)