Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1800 -r1809
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1800)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1809)
@@ -87,6 +87,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertClassNameViaMacro">
+<FormalSpec>aAutoQuoted:%String,Object:%Base,ExpectedClassName:%String,aMessage:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	 Set manager=r%Manager
+	 #dim ObjectClassName As %String = $classname(Object)
+	 Set aMessage=$g(aMessage)
+	     _":("_ObjectClassName_"=="_ExpectedClassName_"):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"equals")_"]"
+	 Set success = ObjectClassName=ExpectedClassName
+	 Do manager.LogAssert(success,"AssertClassName",aMessage)
+	 Quit success
+]]></Implementation>
+</Method>
+
 <Method name="AssertEqualsDateViaMacro">
 <FormalSpec>aAutoQuoted:%String,aValue1:TECH.Horolog,aValue2:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>