Index: TECH/Mail/Mail.cls.xml
===================================================================
diff -u -r1650 -r3060
--- TECH/Mail/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1650)
+++ TECH/Mail/Mail.cls.xml	(.../Mail.cls.xml)	(revision 3060)
@@ -97,6 +97,10 @@
 <FormalSpec>Stream:%Stream</FormalSpec>
 </Method>
 
+<Method name="VoegToeJobInfo">
+<Abstract>1</Abstract>
+</Method>
+
 <Method name="MailOmleiden">
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
Index: TECH/Mail/impl/Mail.cls.xml
===================================================================
diff -u -r1650 -r3060
--- TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1650)
+++ TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 3060)
@@ -219,6 +219,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeJobInfo">
+<Implementation><![CDATA[
+	Do ..VoegToeLijn("")
+	Do ..VoegToeInhoud($$GetJobInfo^vhLib.System(1,""))
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerzender">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..Verzender