@@ -11,10 +11,15 @@
 
 ;; (define itemdat '((ripeness    "green ripe overripe")
 ;; 		     (temperature "cool medium hot")
 ;; 		     (season      "summer winter fall spring")))
 
+(declare (unit items))
+(declare (uses common))
+
+(include "common_records.scm")
+
 ;; Mostly worked = puts out all combinations?
 (define (process-itemlist-try1 curritemkey itemlist)
   (let loop ((hed (car itemlist))
 	     (tal (cdr itemlist)))
     (if (null? tal)
@@ -113,12 +118,9 @@
 		  #f)))
       res)))
             ;; Nope, not now, return null as of 6/6/2011
 		
   
-(define-inline (item-list->path itemdat)
-  (string-intersperse  (map cadr itemdat) "/"))
-
 ;; (pp (item-assoc->item-list itemdat))