Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r1504 -r1566
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1504)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1566)
@@ -49,6 +49,7 @@
 	Set ..ErrorID = "" //$$LOG^%ETN()
 	Set ..Stack = ##class(TECH.Process).GeefStackTrace(1)
 	Set ..Tijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
+	Set %IsToStringRecursive = 0
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -107,15 +108,18 @@
 	#dim ErrorListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..InnerExceptions)
 	While ErrorListIterator.HasNext() {
 		#dim InnerException As TECH.Exceptions.Exception = ErrorListIterator.Next() 
+		Set %IsToStringRecursive = 1
 		Do TekstStream.WriteLine(Prefix_"InnerExceptie "_ ErrorListIterator.Key() _":")
 		Do TekstStream.Write(InnerException.ToString(Prefix_"***"))
-	}
+	}	
+	Do:($$$Not(%IsToStringRecursive)) TekstStream.WriteLine(Prefix_"Stack: "_$$$TAB_..GeefStack())
 	Do TekstStream.Rewind()
 	#dim Result As %String = TekstStream.Read()
 	if (TekstStream.Size) > 32000
 	{
 		Set Result = Result _ $$$CRLF _ "Rest van de Exceptie is afgekapt!!!"
 	}
+	Set %IsToStringRecursive = 0
 	Quit Result
 ]]></Implementation>
 </Method>