Index: APPS/common/impl/ExceptionLogItemVisitor.cls.xml
===================================================================
diff -u -r2764 -r2863
--- APPS/common/impl/ExceptionLogItemVisitor.cls.xml	(.../ExceptionLogItemVisitor.cls.xml)	(revision 2764)
+++ APPS/common/impl/ExceptionLogItemVisitor.cls.xml	(.../ExceptionLogItemVisitor.cls.xml)	(revision 2863)
@@ -3,6 +3,7 @@
 <Class name="APPS.common.impl.ExceptionLogItemVisitor">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,APPS.common.impl.IExceptionLogItemVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ExceptionLogItem">
 <Type>APPS.common.impl.ExceptionLogItem</Type>
@@ -11,9 +12,7 @@
 
 <Method name="GeefExceptionLogItem">
 <ReturnType>APPS.common.impl.ExceptionLogItem</ReturnType>
-<Implementation><![CDATA[
-	Quit ..ExceptionLogItem
-
+<Implementation><![CDATA[	Quit ..ExceptionLogItem
 ]]></Implementation>
 </Method>
 
@@ -24,7 +23,6 @@
 	Do ..VerwerkExceptionLogItem(ClientExceptionLogItem)
 	Do ..ExceptionLogItem.ZetMachineNaam(ClientExceptionLogItem.MachineNaam)
 	Do ..ExceptionLogItem.ZetOpstartTijdstipVhintra(ClientExceptionLogItem.OpstartTijdstipVhintra)
-
 ]]></Implementation>
 </Method>
 
@@ -42,7 +40,6 @@
 		Set KeyValuePair = Iterator.Next()
 		Do ..ExceptionLogItem.VoegToeLokaleVariabele(KeyValuePair.Key,KeyValuePair.Value)
 	}
-
 ]]></Implementation>
 </Method>
 
@@ -58,10 +55,9 @@
 	While (Iterator.HasNext())
 	{
 		Set KeyValuePair = Iterator.Next()
-		Do ..ExceptionLogItem.VoegToeParameter(KeyValuePair.Key,KeyValuePair.Value)
+		Do LoggedException.VoegToeParameter(KeyValuePair.Key,KeyValuePair.Value)
 	}
 	Quit LoggedException
-
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/common/impl/LoggedException.cls.xml
===================================================================
diff -u -r2764 -r2863
--- APPS/common/impl/LoggedException.cls.xml	(.../LoggedException.cls.xml)	(revision 2764)
+++ APPS/common/impl/LoggedException.cls.xml	(.../LoggedException.cls.xml)	(revision 2863)
@@ -84,7 +84,7 @@
 
 <Method name="VoegToeParameter">
 <FormalSpec>Key:%String,Value:%String</FormalSpec>
-<Implementation><![CDATA[	Do ..Parameters.InsertAt(Value,Key)
+<Implementation><![CDATA[	Do ..Parameters.SetAt(Value,Key)
 ]]></Implementation>
 </Method>
 
Index: WS/common/ExceptionLogService.cls.xml
===================================================================
diff -u -r2764 -r2863
--- WS/common/ExceptionLogService.cls.xml	(.../ExceptionLogService.cls.xml)	(revision 2764)
+++ WS/common/ExceptionLogService.cls.xml	(.../ExceptionLogService.cls.xml)	(revision 2863)
@@ -5,10 +5,18 @@
 <Super>WS.WebService</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="SERVICENAME">
+<Default>ExceptionLogService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/common/Exceptions</Default>
+</Parameter>
+
 <Method name="RegistreerExceptionLogItem">
 <FormalSpec>ExceptionLogItem:APPS.common.dto.ExceptionLogItem</FormalSpec>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Do ##class(APPS.common.ExceptionLogService).RegistreerExceptionLogItem(ExceptionLogItem)
+<Implementation><![CDATA[	Do ##class(APPS.common.ExceptionLogService).%New().RegistreerExceptionLogItem(ExceptionLogItem)
 ]]></Implementation>
 </Method>
 </Class>
Index: TECH/KeyValuePair.cls.xml
===================================================================
diff -u -r2604 -r2863
--- TECH/KeyValuePair.cls.xml	(.../KeyValuePair.cls.xml)	(revision 2604)
+++ TECH/KeyValuePair.cls.xml	(.../KeyValuePair.cls.xml)	(revision 2863)
@@ -14,7 +14,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Key:%CacheString,Value:%CacheString</FormalSpec>
+<FormalSpec>Key:%CacheString="",Value:%CacheString=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>