Index: Res/Perfion/Synchroniser/VertalingenParser.cls.xml
===================================================================
diff -u -r61825 -r63547
--- Res/Perfion/Synchroniser/VertalingenParser.cls.xml	(.../VertalingenParser.cls.xml)	(revision 61825)
+++ Res/Perfion/Synchroniser/VertalingenParser.cls.xml	(.../VertalingenParser.cls.xml)	(revision 63547)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="Res.Perfion.Synchroniser.VertalingenParser">
-<Super>%XML.SAX.ContentHandler,TECH.RegisteredObject</Super>
+<Super>%XML.SAX.ContentHandler,TECH.Mockable</Super>
 
 <Property name="PerfionVertalingen">
 <Type>Res.Perfion.Synchroniser.VertalingDTO</Type>
@@ -36,9 +36,7 @@
 
 <Method name="GeefVertalingenLijst">
 <ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(238).String(..PerfionVertalingen.Count())
-	Quit ..PerfionVertalingen
+<Implementation><![CDATA[	Quit ..PerfionVertalingen
 ]]></Implementation>
 </Method>
 
@@ -47,7 +45,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..PerfionVertalingen = ##class(%ListOfObjects).%New()
-    set status=##class(%XML.SAX.Parser).ParseStream(Stream,%this)
+    #dim status As %Status = ##class(%XML.SAX.Parser).ParseStream(Stream,%this)
 
     quit status
 ]]></Implementation>
@@ -87,7 +85,7 @@
 			Set:(localname = "") ..Dto.Sleutel = ..LastValue
 			if ##class(TECH.StringUtils).StartsWith(localname,"Vertaling"){
 				#dim Taal as %String = ##class(TECH.StringUtils).Replace(localname,"Vertaling","")
-				if (##class(TECH.StringUtils).Equals(Taal,"DA","DE","EN","ES","FR","IT","NL","NO")){
+				if (##class(TECH.StringUtils).Equals(Taal,"DA","DE","EN","ES","FR","IT","NL","NO","FI")){
 					Do ..Dto.Vertalingen.SetAt(..LastValue,Taal)
 				}
 			}
@@ -136,8 +134,6 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Xml as %String = ""
-	
-	
 	Quit Xml
 ]]></Implementation>
 </Method>