Index: TECH/Error/impl/ErrorHandler.cls.xml
===================================================================
diff -u -r924 -r946
--- TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 924)
+++ TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 946)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-04 10:50:33">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-22 15:43:28">
 <Class name="TECH.Error.impl.ErrorHandler">
 <Description>
 Deze class doet de eigenlijke error afhandeling. 
@@ -8,7 +8,7 @@
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62154,39102.635211</TimeChanged>
+<TimeChanged>62172,56692.637432</TimeChanged>
 <TimeCreated>62025,48050.831801</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -95,7 +95,7 @@
 <Implementation><![CDATA[
 	Do Error.XMLExportToString(.Info,,"literal,indent")
 	
-	if $Data(%vhLastError) {
+	if $data(%vhLastError) {
 		set LastErrorInfo = ##class(%GlobalCharacterStream).%New()
 		do LastErrorInfo.WriteLine(%vhLastError.%ClassName(1))
 		do %vhLastError.XMLExportToStream(.LastErrorInfo,,"literal,indent")
@@ -106,7 +106,6 @@
 	if $data(LastErrorInfo) {
 		Set Log=Logger.Error($S(Error.Label="":"NoLabel",1:Error.Label), LastErrorInfo)
 	}
-	
 	Set Log=Logger.Error($S(Error.Label="":"NoLabel",1:Error.Label), Info)
 ]]></Implementation>
 </Method>
@@ -136,17 +135,14 @@
 	do Body.WriteLine()
 	do Body.WriteLine("Variabelen : ")
 	
+	/** /
 	set Var = "%" 
 	for  { set Var = $order(@Var) quit:Var=""  
-		 ;continue:Var="%vhLastError"
-		 ;continue:Var="%ErrorObject"
-		 ;continue:Var="%this"
-		
+	 	;continue:Var="%vhLastError" ;continue:Var="%ErrorObject" ;continue:Var="%this"
 		do Body.WriteLine(Var_" : "_@Var)
-		if $IsObject(@Var) { 
-		 	//do Body.WriteLine($$ObjToText^vhLib(@Var)) 
-		}
+		;if $IsObject(@Var) { do Body.WriteLine($$ObjToText^vhLib(@Var))	}
 	}
+	/**/
 	
 	Set From=$$$SystemMail("TECH ErrorHandler")
 	
@@ -205,5 +201,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3266019473"/>
+<Checksum value="1475657538"/>
 </Export>