Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1758 -r1798
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1758)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1798)
@@ -129,6 +129,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertEmptyListViaMacro">
+<FormalSpec>aAutoQuoted:%String,List:%ListOfDataTypes,aMessage:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim manager As Tools.Test.Manager = r%Manager
+	#dim success As %Boolean = ( List.Count() = 0 )
+ 	if 'success {
+	 	set aMessage = $g(aMessage)_":"_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List,", ")
+ 	}
+ 	do manager.LogAssert(success,"AssertEmptyList",aMessage)
+ 	quit success
+]]></Implementation>
+</Method>
+
 <Method name="AssertEqualsListViaMacro">
 <FormalSpec>aAutoQuoted:%String,List1:%ListOfDataTypes,List2:%ListOfDataTypes,aMessage:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -151,8 +165,8 @@
 	 	set aMessage = aMessage _ "# Items differs "_List1.Count()_"="_List2.Count()
  	}
  	if 'success {
-	 	set aMessage = aMessage_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List1,",")
-	 	set aMessage = aMessage_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List2,",")
+	 	set aMessage = aMessage_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List1,", ")
+	 	set aMessage = aMessage_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List2,", ")
  	}
  	
  	Do manager.LogAssert(success,"AssertEqualsList",aMessage)