Index: vhLib/System.mac.rou
===================================================================
diff -u -r2427 -r2718
--- vhLib/System.mac.rou	(.../System.mac.rou)	(revision 2427)
+++ vhLib/System.mac.rou	(.../System.mac.rou)	(revision 2718)
@@ -30,7 +30,7 @@
  //           Handig bij het versturen van bvb. mails met een error-melding
  // ==========================================================================================================================================
 GetJobInfo(blnMultiLine,Indent)
-	New Exception
+	New Exception,Txt
 	Set Indent=$G(Indent),blnMultiLine=$G(blnMultiLine,1)
  	Set Txt="Device: "_$I_"  Job: "_$J
 	Set Txt=Txt_$S(blnMultiLine:$$$CRLF_Indent, 1:"  ")_"Server: "_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"  NameSpace: "_##class(TECH.Context.RuntimeContext).Instance().GeefNamespace()
@@ -47,8 +47,8 @@
 	Quit Txt
 	
 GetStackToString(Short,NoLastLevels)
- New loop,Body,BodyString
- set Body = ##class(%GlobalCharacterStream).%New()
+ New loop,Body,BodyString,QuitAtSource
+ Set Body = ##class(%GlobalCharacterStream).%New()
  Set Short=$G(Short,0)
  Set QuitAtSource=$G(QuitAtSource,$C(0))
  Set NoLastLevels=$G(NoLastLevels,1)
@@ -67,3 +67,4 @@
  
  
  
+