Index: KPR20.mac.rou
===================================================================
diff -u -r48084 -r48153
--- KPR20.mac.rou	(.../KPR20.mac.rou)	(revision 48084)
+++ KPR20.mac.rou	(.../KPR20.mac.rou)	(revision 48153)
@@ -17,7 +17,7 @@
 R20L S @%Q1=0 F R=0:1:RT X RX(R)
  Lock +^PRSTOCK("D",PR)
  S R=$G(^PRSTOCK("D",PR)),$P(R,D)=$P(R,D)+R2,^PRSTOCK("D",PR)=R
- D ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
+ D:R2 ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
  Lock -^PRSTOCK("D",PR)
 R20Z K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R12,RA,RB,RC,RF,RP,RW,RX,RT Q  ;V3 08.07.85
  ;