Index: APPS/common/EDI/impl/EDIBasisVerwerker.cls.xml
===================================================================
diff -u -r32562 -r33115
--- APPS/common/EDI/impl/EDIBasisVerwerker.cls.xml	(.../EDIBasisVerwerker.cls.xml)	(revision 32562)
+++ APPS/common/EDI/impl/EDIBasisVerwerker.cls.xml	(.../EDIBasisVerwerker.cls.xml)	(revision 33115)
@@ -92,14 +92,27 @@
 <Implementation><![CDATA[
 	Lock +^APPScommonEDIVerwerker:1 Else  Quit   ; exclusief gebruik 
 	
-	Do ..ScanSubDirs()
-	Do ..ScanFiles()	
-	Do ..ArchiveDirOpkuisen()	
+	try {
+		Do ..ScanSubDirs()
+		Do ..ScanFiles()	
+		Do ..ArchiveDirOpkuisen()	
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..UnlockAPPScommonEDIVerwerker()
+		Do ##class(TECH.ExceptionHandler).Rethrow()
+	}
 	
-	Lock -^APPScommonEDIVerwerker
+	Do ..UnlockAPPScommonEDIVerwerker()
 ]]></Implementation>
 </Method>
 
+<Method name="UnlockAPPScommonEDIVerwerker">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Lock -^APPScommonEDIVerwerker
+]]></Implementation>
+</Method>
+
 <Method name="ScanSubDirs">
 <Final>1</Final>
 <Private>1</Private>