Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1798 -r1800
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1798)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1800)
@@ -130,13 +130,13 @@
 </Method>
 
 <Method name="AssertEmptyListViaMacro">
-<FormalSpec>aAutoQuoted:%String,List:%ListOfDataTypes,aMessage:%String</FormalSpec>
+<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,", ")
+	 	set aMessage = aMessage_":"_ $$$CRLF _ ##class(TECH.ListUtils).ListToPieces(List,", ")
  	}
  	do manager.LogAssert(success,"AssertEmptyList",aMessage)
  	quit success