Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r1934 -r1936
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1934)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1936)
@@ -94,34 +94,36 @@
 	if $listlength(..ErrorID) {
 		set Datum = $listget(..ErrorID,1)
 		set Error = $listget(..ErrorID,2)
-		set StackLevel = ""
-		set StackLevel = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel))
-		while(StackLevel '= ""){
-			Set ErrorInfo = ErrorInfo_$C(10,13)_StackLevel
-			Set InfoType = ""
-			Set InfoType = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType))
-			While(InfoType '= ""){
-				Set ErrorInfo = ErrorInfo_$C(9)_InfoType_" : "
-				Set Key = ""
-				Set Key = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType,Key))
-				If (Key = ""){
-					Set ErrorInfo = ErrorInfo_$C(9)_$Get(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType))
-					Set ErrorInfo = ErrorInfo_$C(10,13)
-				}Else{
-					Set ErrorInfo = ErrorInfo_$C(10,13)
-					While(Key '= ""){
-						Set ErrorInfo = ErrorInfo_$C(9)_Key
-						Set ErrorInfo = ErrorInfo_$C(9)_" = "_$Get(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType,Key))
-						Set Key = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType,Key))	
+		if $length(Datum) && $length(Error) {
+			set StackLevel = ""
+			set StackLevel = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel))
+			while(StackLevel '= ""){
+				Set ErrorInfo = ErrorInfo_$C(10,13)_StackLevel
+				Set InfoType = ""
+				Set InfoType = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType))
+				While(InfoType '= ""){
+					Set ErrorInfo = ErrorInfo_$C(9)_InfoType_" : "
+					Set Key = ""
+					Set Key = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType,Key))
+					If (Key = ""){
+						Set ErrorInfo = ErrorInfo_$C(9)_$Get(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType))
 						Set ErrorInfo = ErrorInfo_$C(10,13)
+					}Else{
+						Set ErrorInfo = ErrorInfo_$C(10,13)
+						While(Key '= ""){
+							Set ErrorInfo = ErrorInfo_$C(9)_Key
+							Set ErrorInfo = ErrorInfo_$C(9)_" = "_$Get(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType,Key))
+							Set Key = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType,Key))	
+							Set ErrorInfo = ErrorInfo_$C(10,13)
+						}
 					}
-				}
-				Set InfoType = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType))			
-			}		
-			Set StackLevel = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel))
+					Set InfoType = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel,InfoType))			
+				}		
+				Set StackLevel = $Order(^ERRORS(Datum,Error,"*STACK",StackLevel))
+			}
 		}
-		Quit ErrorInfo	
 	}
+	Quit ErrorInfo
 ]]></Implementation>
 </Method>
 </Class>