Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r575 -r579
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 575)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 579)
@@ -23,7 +23,7 @@
 		Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New()
 		Do MethodCallStub.ZetMethodNaam( MethodNaam )
 
-		Set VerwachteParameterWaarden = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .VerwachteParameterWaardenMultiDim )		
+		#dim VerwachteParameterWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .VerwachteParameterWaardenMultiDim )		
 		Do MethodCallStub.ZetParameters( VerwachteParameterWaarden )
 		
 		Do ..MethodCallStubs.Insert( MethodCallStub )
@@ -38,7 +38,7 @@
 <FormalSpec>MethodNaam:%String,VerwachteParameterWaardenMultiDim...:%List</FormalSpec>
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
-	Set MethodCallStub = ..IndienMethodCall( MethodNaam, .VerwachteParameterWaardenMultiDim )
+	#dim MethodCallStub As Tools.Mock.MethodCallStub = ..IndienMethodCall( MethodNaam, .VerwachteParameterWaardenMultiDim )
 	Do MethodCallStub.ZetIsVerwacht( 1 )
 	Quit MethodCallStub
 ]]></Implementation>
@@ -48,36 +48,35 @@
 <Description>
 Aan te roepen door de unit test.</Description>
 <FormalSpec>MethodNaam:%String,Parameters...:%List</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-		#Dim MatchGevonden As %Boolean = 0
-		#Dim MethodCallStub As Tools.Mock.MethodCallStub
-		
-		#dim ActueleParameterWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .Parameters )
-		
-		Set MethodCallStubsIterator = ##class(TECH.ListIterator).%New( ..MethodCallStubs )
-		While ('MatchGevonden && MethodCallStubsIterator.HasNext() ) {
-			Set MethodCallStub = MethodCallStubsIterator.Next()
-			Set MatchGevonden = MethodCallStub.IsMatch( MethodNaam, ActueleParameterWaarden )
+	#dim VerwerkMethodCall As %CacheString = ""
+	#Dim MatchGevonden As %Boolean = 0
+	#Dim MethodCallStub As Tools.Mock.MethodCallStub
+	
+	#dim ActueleParameterWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .Parameters )
+	
+	Set MethodCallStubsIterator = ##class(TECH.ListIterator).%New( ..MethodCallStubs )
+	While ('MatchGevonden && MethodCallStubsIterator.HasNext() ) {
+		Set MethodCallStub = MethodCallStubsIterator.Next()
+		Set MatchGevonden = MethodCallStub.IsMatch( MethodNaam, ActueleParameterWaarden )
+	}
+	
+	If MatchGevonden {
+		#Dim HeeftReturnWaarde As %Boolean = 0
+		#Dim ReturnWaarde As %String = ""
+		Do MethodCallStub.MockCall( MethodNaam, ActueleParameterWaarden, .HeeftReturnWaarde, .ReturnWaarde ) 
+		If HeeftReturnWaarde {
+			Set VerwerkMethodCall = ReturnWaarde
 		}
-		
-		If MatchGevonden {
-			#Dim HeeftReturnWaarde As %Boolean = 0
-			#Dim ReturnWaarde As %String = ""
-			Do MethodCallStub.MockCall( MethodNaam, ActueleParameterWaarden, .HeeftReturnWaarde, .ReturnWaarde ) 
-			If HeeftReturnWaarde {
-				Quit ReturnWaarde
-			} Else {
-				Quit	
-			}
-		} Else {
-			#Dim ParametersAlsString As %String = ##class(TECH.ListUtils).ListToPieces(ActueleParameterWaarden)
-			#Dim ExceptionBericht As %String = "Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door de mock."
-			Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New( ExceptionBericht ) )
-			// Eventueel kan er ook "nice" gedrag ondersteund worden. Ttz, gewoon niets (of lege string of 0) teruggeven.
-		}
-		
-		// TODO: Registreer de uitgevoerde call.
+	} Else {
+		#Dim ParametersAlsString As %String = ##class(TECH.ListUtils).ListToPieces(ActueleParameterWaarden)
+		#Dim ExceptionBericht As %String = "Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door de mock."
+		Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New( ExceptionBericht ) )
+		// Eventueel kan er ook "nice" gedrag ondersteund worden. Ttz, gewoon niets (of lege string of 0) teruggeven.
+	}
+	Quit VerwerkMethodCall
+	// TODO: Registreer de uitgevoerde call.
 ]]></Implementation>
 </Method>