@@ -379,14 +379,10 @@
 (if (args:get-arg "-runall")
     (general-run-call 
      "-runall"
      "run all tests"
      (lambda (target runname keys keynames keyvallst)
-;;       (let ((flags (make-hash-table)))
-;;	 (for-each (lambda (parm)
-;;		     (hash-table-set! flags parm (args:get-arg parm)))
-;;		   (list "-rerun" "-force" "-itempatt"))
 	 (runs:run-tests target
 			 runname
 			 (args:get-arg "-runtests")
 			 user
 			 args:arg-hash)))) ;; )
@@ -603,11 +599,11 @@
 	  (if (not (setup-for-run))
 	      (begin
 		(debug:print 0 "Failed to setup, exiting")
 		(exit 1)))
 	  (if (and state status)
-	      (open-run-close db:teststep-set-status! db test-id step state status itemdat (args:get-arg "-m") logfile)
+	      (open-run-close db:teststep-set-status! db test-id step state status (args:get-arg "-m") logfile)
 	      (begin
 		(debug:print 0 "ERROR: You must specify :state and :status with every call to -step")
 		(exit 6)))
 	  (if db (sqlite3:finalize! db))
 	  (set! *didsomething* #t))))
@@ -673,11 +669,11 @@
 				       (else ">&")))
 			 (fullcmd    (conc "(" (string-intersperse 
 						(cons cmd params) " ")
 					   ") " redir " " logfile)))
 		    ;; mark the start of the test
-		    (open-run-close db:teststep-set-status! db test-id stepname "start" "n/a" itemdat (args:get-arg "-m") logfile)
+		    (open-run-close db:teststep-set-status! db test-id stepname "start" "n/a" (args:get-arg "-m") logfile)
 		    ;; run the test step
 		    (debug:print 2 "INFO: Running \"" fullcmd "\"")
 		    (change-directory startingdir)
 		    (set! exitstat (system fullcmd)) ;; cmd params))
 		    (set! *globalexitstatus* exitstat)
@@ -692,11 +688,11 @@
 			  (set! exitstat (system cmd))
 			  (set! *globalexitstatus* exitstat) ;; no necessary
 			  (change-directory testpath)
 			  (open-run-close db:test-set-log! db test-id htmllogfile)))
 		    (let ((msg (args:get-arg "-m")))
-		      (open-run-close db:teststep-set-status! db test-id stepname "end" exitstat itemdat msg logfile))
+		      (open-run-close db:teststep-set-status! db test-id stepname "end" exitstat msg logfile))
 		    )))
 	  (if (or (args:get-arg "-test-status")
 		  (args:get-arg "-set-values"))
 	      (let ((newstatus (cond
 				((number? status)       (if (equal? status 0) "PASS" "FAIL"))
@@ -793,11 +789,11 @@
 	   (db      (if toppath (open-db) #f)))
       (if db
 	  (begin
 	    (set! *db* db)
 	    (if (not (args:get-arg "-server"))
-		(server:client-setup db))
+		(server:client-setup))
 	    (import readline)
 	    (import apropos)
 	    (gnu-history-install-file-manager
 	     (string-append
 	      (or (get-environment-variable "HOME") ".") "/.megatest_history"))