Index: ORGALUX.mac.rou
===================================================================
diff -u -r734 -r919
--- ORGALUX.mac.rou	(.../ORGALUX.mac.rou)	(revision 734)
+++ ORGALUX.mac.rou	(.../ORGALUX.mac.rou)	(revision 919)
@@ -5,7 +5,7 @@
  New Key
  Set Key=$O(^KPR(PRNr,"I"))
  Quit:$E(Key)'="I" 0
- Quit $P(^KPR(PRNr,Key),D,1)["OL"
+ Quit $P(^KPR(PRNr,Key),"\",1)["OL"
  
 IsIntivo(PRNr)
 	Quit $P($G(^KPR(PRNr,0)),"\")?1(1"OL.I",1"OL.TI",1"OL.FW").E