Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r722 -r783
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 722)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 783)
@@ -19,26 +19,34 @@
 Aan te roepen door de unit test, om een method te stubben.</Description>
 <FormalSpec>MethodNaam:%String,VerwachteParameterWaarden...:%String</FormalSpec>
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
+<Implementation><![CDATA[	quit ..IndienMethodCallMultiDim(MethodNaam,.VerwachteParameterWaarden)
+]]></Implementation>
+</Method>
+
+<Method name="IndienMethodCallMultiDim">
+<FormalSpec><![CDATA[MethodNaam:%String,&VerwachteParameterWaardenMultiDim:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
-		Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New()
-		Do MethodCallStub.ZetMethodNaam( MethodNaam )
+	Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New()
+	Do MethodCallStub.ZetMethodNaam( MethodNaam )
 
-		#dim VerwachteParameterWaardenList As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .VerwachteParameterWaarden )		
-		Do MethodCallStub.ZetParameters( VerwachteParameterWaardenList )
+	#dim VerwachteParameterWaardenList As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .VerwachteParameterWaardenMultiDim )		
+	Do MethodCallStub.ZetParameters( VerwachteParameterWaardenList )
 		
-		Do ..MethodCallStubs.Insert( MethodCallStub )
+	Do ..MethodCallStubs.Insert( MethodCallStub )
 		
-		Quit MethodCallStub
+	Quit MethodCallStub
 ]]></Implementation>
 </Method>
 
 <Method name="VerwachtMethodCall">
 <Description>
 Aan te roepen door de unit test.</Description>
-<FormalSpec>MethodNaam:%String,VerwachteParameterWaardenMultiDim...:%List</FormalSpec>
+<FormalSpec>MethodNaam:%String,VerwachteParameterWaarden...:%List</FormalSpec>
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
-	#dim MethodCallStub As Tools.Mock.MethodCallStub = ..IndienMethodCall( MethodNaam, .VerwachteParameterWaardenMultiDim )
+	#dim MethodCallStub As Tools.Mock.MethodCallStub = ..IndienMethodCallMultiDim( MethodNaam, .VerwachteParameterWaarden)
 	Do MethodCallStub.ZetIsVerwacht( 1 )
 	Quit MethodCallStub
 ]]></Implementation>
@@ -71,7 +79,7 @@
 		}
 	} Else {
 		#Dim ParametersAlsString As %String = ##class(TECH.ListUtils).ListToPieces(ActueleParameterWaarden)
-		#Dim ExceptionBericht As %String = "Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door de mock."
+		#Dim ExceptionBericht As %String = "Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door de mock."_..%ClassName(1)
 		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.
 	}