Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -18,6 +18,6 @@
 ;; Always use two or four digit decimal
 ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.6552)
+(define megatest-version 1.6553)

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -2781,13 +2781,13 @@
 			 (comment	(vector-ref test 14))   
 			 (test-status	(vector-ref test 4))
 			 (exc-msg	(conc "No bucket for State " test-state " Status " test-status))
 			 (new-doc	(cond 
 						((member test-state (list "RUNNING" ))
-							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (inProgress (@ (type "inProgress")))))) doc))
+							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (inProgress)))) doc))
 						((member test-state (list "LAUNCHED" "REMOTEHOSTSTART"  "NOT_STARTED"))
-							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (inProgress (@ (type "inQueue")))))) doc))
+							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (inQueue)))) doc))
 						((member test-status (list "PASS" "WARN" "WAIVED"))
 							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name))))) doc))
 						((member test-status (list "FAIL" "CHECK"))
 							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (failure (@ (message ,comment) (type "failure")))))) doc)) 
 						((member test-status (list "DEAD" "KILLED" "ABORT" "PREQ_FAIL" "PREQ_DISCARDED"))