@@ -124,16 +124,16 @@
 	 (items       (hash-table-ref/default tconfig "items"      '()))
 	 (itemstable  (hash-table-ref/default tconfig "itemstable" '())))
     (debug:print 5 "items: " items " itemstable: " itemstable)
     (set! items (map (lambda (item)
 		       (if (procedure? (cadr item))
-			   (list (car item)((cadr item)))
+			   (list (car item)((cadr item)))  ;; evaluate the proc
 			   item))
 		     items))
     (set! itemstable (map (lambda (item)
 			    (if (procedure? (cadr item))
-				(list (car item)((cadr item)))
+				(list (car item)((cadr item)))  ;; evaluate the proc
 				item))
 			  itemstable))
     (if (and have-items  (null? items))     (debug:print 0 "ERROR: [items] section in testconfig but no entries defined"))
     (if (and have-itable (null? itemstable))(debug:print 0 "ERROR: [itemstable] section in testconfig but no entries defined"))
     (if (or (not (null? items))(not (null? itemstable)))