Index: BLIMPES.mac.rou
===================================================================
diff -u -r734 -r1877
--- BLIMPES.mac.rou	(.../BLIMPES.mac.rou)	(revision 734)
+++ BLIMPES.mac.rou	(.../BLIMPES.mac.rou)	(revision 1877)
@@ -42,7 +42,7 @@
  Goto Klant:RecType=21,Prod:RecType=31
  Goto C4
 C6 Goto MENU
-MENU Set:MailLnk MailId=$$SYSTEM^vhMAIL("","",$P($T(+1),"["),"BLUMES",.MailTxt,.MailLnk,"","A")
+MENU Set:$G(MailLnk) MailId=$$SYSTEM^vhMAIL("","",$P($T(+1),"["),"BLUMES",.MailTxt,.MailLnk,"","A")
  Kill ^BLProd("RP","ZXY")
  L  Q
  Quit