Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r179 -r376
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 179)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 376)
@@ -35,7 +35,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ErrorID = "" //$$LOG^%ETN()
-	Set ..Stack = ##class(TECH.Process).GeefStackTrace(1)
+	Set ..Stack =  $$GetStackToString^vhLib.System()
 	Set ..Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
 	Quit $$$OK
 ]]></Implementation>