Index: TECH/File/impl/FileWriter.cls.xml
===================================================================
diff -u -r1066 -r2029
--- TECH/File/impl/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 1066)
+++ TECH/File/impl/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 2029)
@@ -50,7 +50,6 @@
 	If ('##class(TECH.File).DirectoryExists(DoelLocatie)){
 		Do ##class(TECH.File).CreateDirectoryChain(DoelLocatie)
 	}
-	
 	If '##class(TECH.File).Exists(DoelLocatie){
 		Set Exception = ##class(TECH.Exceptions.FileException).%New("Pad bestaat niet of is niet bereikbaar : '"_DoelLocatie_"'",1)
 		Do ..LockHelper.UnLock(##class(TECH.enu.LockType).Exclusive())
@@ -188,7 +187,7 @@
 <Method name="GeefLockKey">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "^TECH.File.FileHandler("""_..Bestand_""")"
+<Implementation><![CDATA[	Quit "^FileWriter("""_..Bestand_""")"
 ]]></Implementation>
 </Method>
 </Class>