Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r1562 -r1563
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1562)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1563)
@@ -433,36 +433,37 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Lijst:%ListOfObjects,Comparator:TECH.Comparator.IComparator</FormalSpec>
 <ReturnType>%CacheString</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefExtrema(Lijst, Comparator, $$$True)
+<Implementation><![CDATA[	Quit ..GeefExtrema(Lijst, Comparator, ##class(TECH.enu.Extrema).Maximum())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefMinimum">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Lijst:%ListOfObjects,Comparator:TECH.Comparator.IComparator</FormalSpec>
 <ReturnType>%CacheString</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefExtrema(Lijst, Comparator, $$$False)
+<Implementation><![CDATA[	Quit ..GeefExtrema(Lijst, Comparator, ##class(TECH.enu.Extrema).Minimum())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefExtrema">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Lijst:%ListOfObjects,Comparator:TECH.Comparator.IComparator,IsMaximum:%Boolean</FormalSpec>
+<FormalSpec>Lijst:%ListOfObjects,Comparator:TECH.Comparator.IComparator,Extrema:TECH.enu.Extrema</FormalSpec>
 <Private>1</Private>
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	#dim Extrema As %CacheString = ""
+	#dim IsMaximum As %Boolean = (##class(TECH.enu.Extrema).Maximum() = Extrema)
+	#dim Extreme As %CacheString = ""
 	If Lijst.Count() > 0 {
-		Set Extrema = Lijst.GetAt(1)
+		Set Extreme = Lijst.GetAt(1)
 		#dim i As TECH.Integer
 		For i = 2:1:Lijst.Count() {
 			#dim HulpWaarde As %CacheString = Lijst.GetAt(i)
-			If (..ExtremaComparatorValidator(HulpWaarde,Extrema, Comparator, IsMaximum)) {
-				Set Extrema = HulpWaarde	
+			If (..ExtremaComparatorValidator(HulpWaarde,Extreme, Comparator, IsMaximum)) {
+				Set Extreme = HulpWaarde	
 			}
 		}
 	}
-	Quit Extrema
+	Quit Extreme
 ]]></Implementation>
 </Method>
 
Index: TECH/enu/Extrema.cls.xml
===================================================================
diff -u
--- TECH/enu/Extrema.cls.xml	(revision 0)
+++ TECH/enu/Extrema.cls.xml	(revision 1563)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.enu.Extrema">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Type>%String</Type>
+<Default>;Maximum;Minimum</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Type>%String</Type>
+<Default>;Max;Min</Default>
+</Parameter>
+
+<Method name="Maximum">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.enu.Extrema</ReturnType>
+<Implementation><![CDATA[	Quit "Max"
+]]></Implementation>
+</Method>
+
+<Method name="Minimum">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.enu.Extrema</ReturnType>
+<Implementation><![CDATA[	Quit "Min"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/enuVerwerker/Extrema.cls.xml
===================================================================
diff -u
--- TECH/enuVerwerker/Extrema.cls.xml	(revision 0)
+++ TECH/enuVerwerker/Extrema.cls.xml	(revision 1563)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.enuVerwerker.Extrema">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Interface</Super>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>Extrema:TECH.enu.Extrema</FormalSpec>
+<Implementation><![CDATA[
+	If Extrema = "Max" {
+		Do ..VerwerkMaximum()
+	} ElseIf Extrema = "Min" {
+		Do ..VerwerkMinimum()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Extrema,"TECH.enu.Extrema")
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaximum">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMinimum">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>