Index: TECH/Bereik.cls.xml
===================================================================
diff -u -r680 -r2137
--- TECH/Bereik.cls.xml	(.../Bereik.cls.xml)	(revision 680)
+++ TECH/Bereik.cls.xml	(.../Bereik.cls.xml)	(revision 2137)
@@ -16,13 +16,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Ondergrens:%CacheString,Bovengrens:%CacheString,Comparator:TECH.Comparator.IComparator</FormalSpec>
+<FormalSpec>Ondergrens:%CacheString,Bovengrens:%CacheString,Comparator:TECH.Comparator.IComparator=##class(TECH.Comparator.IntegerComparator).%New()</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Set ..Ondergrens = Ondergrens
-		Set ..Bovengrens = Bovengrens
-		Set ..Comparator = Comparator
-		Quit $$$OK
+	Set ..Ondergrens = Ondergrens
+	Set ..Bovengrens = Bovengrens
+	Set ..Comparator = Comparator
+	Quit $$$OK
 ]]></Implementation>
 </Method>