Index: EWRCPST.mac.rou
===================================================================
diff -u -r734 -r1079
--- EWRCPST.mac.rou	(.../EWRCPST.mac.rou)	(revision 734)
+++ EWRCPST.mac.rou	(.../EWRCPST.mac.rou)	(revision 1079)
@@ -519,7 +519,7 @@
  Set R=^RCP("D",RCPNr),RCPTyp=$P(R,D)
  If $$LOCK(RCPNr) Do
  .If RCPTyp="L" Do
- ..If TBLUNr Do TLUNR^EWTOE(RCPNr,TBNr,TBLUNr,1) Quit
+ ..If TBLUNr Do TLUNR^EWTOE(RCPNr,TBNr,TBLUNr,1,1) Quit
  ..If TBNr Do TOENR^EWTOE(RCPNr,TBNr,1) Quit
  ..Do RCPNR^EWTOE(RCPNr)
  .If RCPTyp="K" Do