Index: TECH/Enumeration.cls.xml
===================================================================
diff -u -r2 -r7
--- TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 2)
+++ TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 7)
@@ -9,6 +9,7 @@
 <Method name="ValueList">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfDataTypes</ReturnType>
+<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set List = ##class(%ListOfDataTypes).%New()
 	set Values = ..#VALUELIST
@@ -21,9 +22,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ValueListbuild">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%List</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set Listbuild = ""
+	set Values = ..#VALUELIST
+	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="Iterator">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.ListIterator</ReturnType>
+<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 
 	quit ##class(TECH.ListIterator).%New(..ValueList())