Index: vhUnitTest/APPS/EC/Winkelkar/impl/TestGroepNaamVoorLijnBepaler.cls.xml
===================================================================
diff -u -r32308 -r36006
--- vhUnitTest/APPS/EC/Winkelkar/impl/TestGroepNaamVoorLijnBepaler.cls.xml	(.../TestGroepNaamVoorLijnBepaler.cls.xml)	(revision 32308)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/TestGroepNaamVoorLijnBepaler.cls.xml	(.../TestGroepNaamVoorLijnBepaler.cls.xml)	(revision 36006)
@@ -47,8 +47,8 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn,GroepNaam:TECH.String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..GroepNaamBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New(Lijn, ..Winkelkar)
-	do $$$AssertEquals(..GroepNaamBepaler.GeefGroepNaam(), GroepNaam)
+	set ..GroepNaamBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New()
+	do $$$AssertEquals(..GroepNaamBepaler.GeefGroepNaam(Lijn, ..Winkelkar), GroepNaam)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EC/Winkelkar/impl/GroepNaamVoorLijnBepaler.cls.xml
===================================================================
diff -u -r35695 -r36006
--- APPS/EC/Winkelkar/impl/GroepNaamVoorLijnBepaler.cls.xml	(.../GroepNaamVoorLijnBepaler.cls.xml)	(revision 35695)
+++ APPS/EC/Winkelkar/impl/GroepNaamVoorLijnBepaler.cls.xml	(.../GroepNaamVoorLijnBepaler.cls.xml)	(revision 36006)
@@ -13,25 +13,16 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
+<Method name="GeefGroepNaam">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn,Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set ..Winkelkar = Winkelkar
 	Do Lijn.Accept(##this)
-	Quit $$$OK
+	Quit ..GroepNaam
 ]]></Implementation>
 </Method>
 
-<Method name="GeefGroepNaam">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..GroepNaam
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkMaatwerkLijn">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <ReturnType>%Status</ReturnType>