Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml
===================================================================
diff -u -r32046 -r33279
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml	(.../TestVanHoecke.cls.xml)	(revision 32046)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml	(.../TestVanHoecke.cls.xml)	(revision 33279)
@@ -61,11 +61,12 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	#dim ECommerceAPIMock As vhTest.Mock.APPS.EC.ECommerceAPI = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()	
-	Set WebshopSessionServiceFake = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
-	Do WebshopSessionServiceFake.IndienMethodCall("GeefVanHoeckeSessie",##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()).DanReturn(##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString))
-	Do ECommerceAPIMock.IndienMethodCall("GeefWebshopSessionService").DanReturn(WebshopSessionServiceFake)
-	Do ECommerceAPIMock.IndienMethodCall("GeefWinkelkarService").DanReturn(..WinkelkarService)
+	
+	#dim ECommerceAPIStub As vhTest.Mock.APPS.EC.ECommerceAPI = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()	
+	#dim WebshopSessionServiceStub As vhTest.Mock.APPS.EC.WebshopSessionService = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	
+	Do WebshopSessionServiceStub.IndienMethodCall("GeefVanHoeckeSessie", ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()).DanReturn(##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString))
+	Do ECommerceAPIStub.IndienMethodCall("GeefWebshopSessionService").DanReturn(WebshopSessionServiceStub)
 		
 	#dim MailAPI As vhUnitTest.TECH.Mail.impl.MailAPIMock = ##class(vhUnitTest.TECH.Mail.impl.MailAPIMock).MockInstance()
 ]]></Implementation>
@@ -210,7 +211,7 @@
 	Quit:( '$$$AssertEquals(Lijn.LijnID, MaatwerkLijnID))
 	
 	#dim VerwachteKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenlade()
-	Quit:( '$$$AssertTrue(Lijn.IngegevenKenmerken.%IsA(VerwachteKenmerken.%ClassName(/*fullname=*/ 1))) )
+	Quit:( '$$$AssertTrue(Lijn.IngegevenKenmerken.%IsA(VerwachteKenmerken.%ClassName(1))) )
 
 	Quit:( '$$$AssertEquals(..#AantalProductenInLijn, Lijn.Aantal))
 	Quit:( '$$$AssertTrue(Lijn.EenheidPrijs > 0) )