Index: EWBON4.mac.rou
===================================================================
diff -u -r734 -r921
--- EWBON4.mac.rou	(.../EWBON4.mac.rou)	(revision 734)
+++ EWBON4.mac.rou	(.../EWBON4.mac.rou)	(revision 921)
@@ -47,7 +47,7 @@
 CALCGEW(MPRNr) 
  New R,PrGew,MGewicht,KGewicht,KPRNr,Aantal
  Set (MGewicht,KGewicht)=0
- Set R=^KPR(MPRNr,1),PrGew=$P(R,D,13),MGewicht=MGewicht+(PrGew/1000)
+ Set R=$G(^KPR(MPRNr,1)),PrGew=$P(R,D,13),MGewicht=MGewicht+(PrGew/1000)
  If $D(^PRLINK("D",MPRNr)) Do
  .Set KPRNr=0
  .For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do