Index: Tools/UnitTest/TestCase.cls.xml
===================================================================
diff -u -r442 -r460
--- Tools/UnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 442)
+++ Tools/UnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 460)
@@ -14,6 +14,7 @@
 <Super>%RegisteredObject</Super>
 
 <Property name="Debug">
+<Type>%Boolean</Type>
 </Property>
 
 <Property name="Manager">
@@ -164,7 +165,7 @@
 </Method>
 
 <Method name="ValidVar">
-<FormalSpec>Var</FormalSpec>
+<FormalSpec>Var:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	quit:$extract(Var)="%" 0
@@ -176,7 +177,7 @@
 </Method>
 
 <Method name="AssertEqualsViaMacro">
-<FormalSpec>aAutoQuoted,aValue1,aValue2,aMessage</FormalSpec>
+<FormalSpec>aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
@@ -190,7 +191,7 @@
 </Method>
 
 <Method name="AssertNotEqualsViaMacro">
-<FormalSpec>aAutoQuoted,aValue1,aValue2,aMessage</FormalSpec>
+<FormalSpec>aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
@@ -204,7 +205,7 @@
 </Method>
 
 <Method name="AssertAlmostEqualsViaMacro">
-<FormalSpec>aAutoQuoted,aValue1,aValue2,aDifference,aMessage</FormalSpec>
+<FormalSpec>aAutoQuoted:%String,aValue1:%String,aValue2:%String,aDifference:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
@@ -218,7 +219,7 @@
 </Method>
 
 <Method name="AssertTrueViaMacro">
-<FormalSpec>aAutoQuoted,aValue,aMessage</FormalSpec>
+<FormalSpec>aAutoQuoted:%String,aValue:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
@@ -232,7 +233,7 @@
 </Method>
 
 <Method name="AssertNotTrueViaMacro">
-<FormalSpec>aAutoQuoted,aValue,aMessage</FormalSpec>
+<FormalSpec>aAutoQuoted:%String,aValue:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
@@ -246,7 +247,7 @@
 </Method>
 
 <Method name="AssertStatusOKViaMacro">
-<FormalSpec>aAutoQuoted,status,aMessage</FormalSpec>
+<FormalSpec>aAutoQuoted:%String,status:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
@@ -261,7 +262,7 @@
 </Method>
 
 <Method name="AssertStatusNotOKViaMacro">
-<FormalSpec>aAutoQuoted,status,aMessage</FormalSpec>
+<FormalSpec>aAutoQuoted:%String,status:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
@@ -273,7 +274,7 @@
 </Method>
 
 <Method name="Fail">
-<FormalSpec>aMessage</FormalSpec>
+<FormalSpec>aMessage:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
@@ -283,7 +284,7 @@
 </Method>
 
 <Method name="AssertFilesSameViaMacro">
-<FormalSpec>aAutoQuoted,file1,file2,aMessage</FormalSpec>
+<FormalSpec>aAutoQuoted:%String,file1:%String,file2:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
@@ -297,7 +298,7 @@
 </Method>
 
 <Method name="LogMessage">
-<FormalSpec>message</FormalSpec>
+<FormalSpec>message:%String</FormalSpec>
 <Implementation><![CDATA[
 	 Set manager=r%Manager
 	 Do manager.LogMessage($g(message))