Index: TECH/File/FileWriter.cls.xml
===================================================================
diff -u -r28 -r30
--- TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 28)
+++ TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 30)
@@ -95,7 +95,7 @@
 			If (##class(TECH.File).Exists(Filename)){
 				If (Gelukt){
 					Set DeleteGelukt = ##class(TECH.File).Delete(Filename)
-					If (DeleteGelukt){
+					If 'DeleteGelukt{
 						Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden verwijderd '"_Filename_"'",0)
 						Do ##class(TECH.ExceptionHandler).Throw(Exception)	
 					}