Index: vhTest/Fake/TECH/ResultSet.cls.xml
===================================================================
diff -u -r29059 -r31981
--- vhTest/Fake/TECH/ResultSet.cls.xml	(.../ResultSet.cls.xml)	(revision 29059)
+++ vhTest/Fake/TECH/ResultSet.cls.xml	(.../ResultSet.cls.xml)	(revision 31981)
@@ -97,19 +97,20 @@
 <Method name="InitDataList">
 <FormalSpec>DataList:%ListOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	if '$IsObject(DataList) set DataList = ##class(%ListOfDataTypes).%New()
-	Set ..DataList = DataList
-	If DataList.Count()>0 {
-		If $$$Not($ListValid(DataList.GetAt(1))) {
-			Set ..DataList = ##class(%ListOfDataTypes).%New()
-			set Iterator = ##class(TECH.ListIterator).%New(DataList)
-			While Iterator.HasNext() {
-				#dim Value As %CacheString = Iterator.Next()
-				Do ..DataList.Insert($ListBuild(Value))
-			}
+	Set:($$$Not($$$IsValidListOfDT(DataList))) DataList = ##class(%ListOfDataTypes).%New()
+
+	If (DataList.Count()=0) || ($ListValid(DataList.GetAt(1))) {
+		Set ..DataList = DataList
+	} Else {
+		Set ..DataList = ##class(%ListOfDataTypes).%New()
+		Set Iterator = ##class(TECH.ListIterator).%New(DataList)
+		While Iterator.HasNext() {
+			#dim Value As %CacheString = Iterator.Next()
+			Do ..DataList.Insert($ListBuild(Value))
 		}
 	}
-	set ..Iterator = ##class(TECH.ListIterator).%New(..DataList)
+	
+	Set ..Iterator = ##class(TECH.ListIterator).%New(..DataList)
 ]]></Implementation>
 </Method>