Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -148,11 +148,11 @@
 
 ;; return items given config
 ;;
 (define (tests:get-items tconfig)
   (let ((items      (hash-table-ref/default tconfig "items" #f)) ;; items 4
-	(itemstable (hash-table-ref/default tconfig "itemstable" #f))) 
+	(itemstable (hash-table-ref/default tconfig "itemstable" #f)))
     ;; if either items or items table is a proc return it so test running
     ;; process can know to call items:get-items-from-config
     ;; if either is a list and none is a proc go ahead and call get-items
     ;; otherwise return #f - this is not an iterated test
     (cond
@@ -160,10 +160,12 @@
       (debug:print-info 4 *default-log-port* "items is a procedure, will calc later")
       items)            ;; calc later
      ((procedure? itemstable)
       (debug:print-info 4 *default-log-port* "itemstable is a procedure, will calc later")
       itemstable)       ;; calc later
+     ((and (not items) (not itemstable))
+      #f)
      ((filter (lambda (x)
 		(let ((val (car x)))
 		  (if (procedure? val) val #f)))
 	      (append (if (list? items) items '())
 		      (if (list? itemstable) itemstable '())))