Index: TECH/Error/impl/ErrorHandler.cls.xml
===================================================================
diff -u -r9 -r152
--- TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 9)
+++ TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 152)
@@ -58,7 +58,7 @@
 		}Else{
 			Set Error.StackTrace = ##class(TECH.Process).GeefStackTrace(1)
 		}
-		set Error.ErrorCode = $piece(Error.StackTrace," ",6)
+		Set Error.ErrorCode = %Exception.GeefOmschrijving()
 		Set Error.ErrorCode2="`"_%Exception.GeefExceptionCode()_"`"_%Exception.GeefOmschrijving()_"`"
 	}
 	else {
@@ -155,7 +155,6 @@
 		do Body.WriteLine()
 		do Body.WriteLine(%Exception.GeefErrorInformatie())
 		do Body.WriteLine()
-		Set Error.ErrorCode = %Exception.GeefOmschrijving()
 	}else{
 		do Body.WriteLine()	
 		do Body.WriteLine("Stack: "_Error.StackTrace)
@@ -174,6 +173,7 @@
 	If $$$ISERR(sc) {
 		Do ..CrashDuringErrorHandling($$ParseStatus^vhLib(sc))
 	}
+	
 	Quit
 ]]></Implementation>
 </Method>