Index: TECH/Error/impl/ErrorHandler.cls.xml
===================================================================
diff -u -r1931 -r1946
--- TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 1931)
+++ TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 1946)
@@ -142,10 +142,11 @@
 	do Body.WriteLine("Stack: "_Error.StackTrace)
 	do Body.WriteLine()
 
-	if $data(%Exception) && $IsObject(%Exception) && '%Exception.%Extends("TECH.Exceptions.Exception") {
+	if $data(%Exception) && $IsObject(%Exception) {
 		do Body.WriteLine("ErrorObjectInfo :")
 		do Body.WriteLine(%Exception.ToString())
 		do Body.WriteLine()
+		Set Error.ErrorCode = %Exception.GeefOmschrijving()
 	}
 
 	do Body.WriteLine("RemoteIP: "_Error.RemoteIP)