@@ -19,7 +19,9 @@
   (string-join (map (lambda (k)(conc (key:get-fieldname k) " " 
 				     (key:get-fieldtype k)))
 		    (append keys additional)) ","))
 
 (define-inline (item-list->path itemdat)
-  (string-intersperse  (map cadr itemdat) "/"))
+  (if (list? itemdat)
+      (string-intersperse  (map cadr itemdat) "/")
+      ""))