Index: vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml
===================================================================
diff -u -r1566 -r1570
--- vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 1566)
+++ vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 1570)
@@ -86,7 +86,6 @@
 		#dim Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set List = Exception.ToString()
 	}
-	Set List = $Piece(List,"Stack:",1)
 	Quit List
 ]]></Implementation>
 </Method>
Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r1566 -r1570
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1566)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1570)
@@ -49,7 +49,6 @@
 	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>
@@ -108,18 +107,15 @@
 	#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>