Index: TECH/Enumeration.cls.xml
===================================================================
diff -u -r589 -r799
--- TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 589)
+++ TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 799)
@@ -62,9 +62,10 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set List = ##class(%ListOfDataTypes).%New()
-	set Values = ..#DISPLAYLIST
-	set Delim = $extract(Values)
+	#dim Listbuild As %List = ""
+	#dim Values As %String = ..#DISPLAYLIST
+	#dim Delim As %String = $extract(Values)
+	#dim ctrItems As %Integer
 	for ctrItems = 2 : 1 : $length(Values,Delim) {
 		set Listbuild = Listbuild _ $listbuild($piece(Values,Delim,ctrItems))
 	}