Index: TECH/Enumeration.cls.xml
===================================================================
diff -u -r1074 -r1584
--- TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 1074)
+++ TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 1584)
@@ -1,7 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="TECH.Enumeration">
-<ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%String</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -22,6 +21,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DisplayList">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	set Values = ..#DISPLAYLIST
+	set Delim = $extract(Values)
+	for ctrItems = 2 : 1 : $length(Values,Delim) {
+		set Value = $piece(Values,Delim,ctrItems)
+		do List.Insert(Value)
+	}
+	quit List
+]]></Implementation>
+</Method>
+
+<Method name="DisplayListbuild">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	set Values = ..#DISPLAYLIST
+	set Delim = $extract(Values)
+	for ctrItems = 2 : 1 : $length(Values,Delim) {
+		set Listbuild = Listbuild _ $listbuild($piece(Values,Delim,ctrItems))
+	}
+	quit Listbuild
+]]></Implementation>
+</Method>
+
 <Method name="ValueListbuild">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%List</ReturnType>
@@ -41,9 +71,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.ListIterator</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-
-	quit ##class(TECH.ListIterator).%New(..ValueList())
+<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..ValueList())
 ]]></Implementation>
 </Method>
 </Class>