Index: vhLib/System.mac.rou
===================================================================
diff -u -r97 -r375
--- vhLib/System.mac.rou	(.../System.mac.rou)	(revision 97)
+++ vhLib/System.mac.rou	(.../System.mac.rou)	(revision 375)
@@ -34,3 +34,21 @@
  	Set Txt=Indent_"Device: "_$I_"  Job: "_$J
 	Set Txt=Txt_$S(blnMultiLine:$$$CRLF_Indent, 1:"  ")_"Server: "_$$$Server_"  NameSpace: "_$$$NSpace_$S(blnMultiLine:$$$CRLF, 1:"")
 	Quit Txt
+	
+GetStackToString(Short,NoLastLevels)
+ New loop,Body
+ Set Short=$G(Short,0)
+ Set QuitAtSource=$G(QuitAtSource,$C(0))
+ Set NoLastLevels=$G(NoLastLevels,1)
+ Set Body="" ;"Ecode: "_$ECODE
+ Set $ECODE=""
+ For loop=0:1:$STACK(-1)-NoLastLevels Quit:($STACK(loop,"MCODE")[QuitAtSource)  DO
+ . If Short Do
+ ..  Set Body=Body_$STACK(loop,"MCODE")_"     [PLACE: '"_$STACK(loop,"PLACE") _ "']"_$$$CRLF
+ . Else  Do
+ ..  Set Body=Body_$$$CRLF_"Context level: "_loop
+ ..  Set Body=Body_$$$CRLF_"   - Context type  : "_$STACK(loop)
+ ..  Set Body=Body_$$$CRLF_"   - Current place : "_$STACK(loop,"PLACE")
+ ..  Set Body=Body_$$$CRLF_"   - Current source: "_$STACK(loop,"MCODE")
+ Set Body=Body_$$$CRLF_$$$CRLF_"Server: "_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_" NameSpace: "_$ZU(5)
+ Quit Body