@@ -251,11 +251,10 @@
 	  (exit 1))
 	;; put test parameters into convenient variables
 	(runs:operate-on  action
 			  (args:get-arg ":runname")
 			  (args:get-arg "-testpatt")
-			  (args:get-arg "-itempatt")
 			  state: (args:get-arg ":state") 
 			  status: (args:get-arg ":status")
 			  new-state-status: (args:get-arg "-set-state-status")))
     (set! *didsomething* #t))))
 	  
@@ -280,11 +279,10 @@
 (if (args:get-arg "-list-runs")
     (if (setup-for-run)
 	(let* ((db       #f)
 	       (runpatt  (args:get-arg "-list-runs"))
 	       (testpatt (args:get-arg "-testpatt"))
-	       (itempatt (args:get-arg "-itempatt"))
 	       (runsdat  (open-run-close db:get-runs db runpatt #f #f '()))
 	       (runs     (db:get-rows runsdat))
 	       (header   (db:get-header runsdat))
 	       (keys     (open-run-close db:get-keys db))
 	       (keynames (map key:get-fieldname keys)))
@@ -297,11 +295,11 @@
 						   keynames) "/")
 			  "/"
 			  (db:get-value-by-header run header "runname")
 			  " status: " (db:get-value-by-header run header "state"))
 	     (let ((run-id (open-run-close db:get-value-by-header run header "id")))
-	       (let ((tests (open-run-close db:get-tests-for-run db run-id testpatt itempatt '() '())))
+	       (let ((tests (open-run-close db:get-tests-for-run db run-id testpatt '() '())))
 		 ;; Each test
 		 (for-each 
 		  (lambda (test)
 		    (format #t
 			    "  Test: ~25a State: ~15a Status: ~15a Runtime: ~5@as Time: ~22a Host: ~10a\n"