Index: RPLKOM.mac.rou
===================================================================
diff -u -r734 -r1134
--- RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 734)
+++ RPLKOM.mac.rou	(.../RPLKOM.mac.rou)	(revision 1134)
@@ -73,8 +73,9 @@
  .For  Set Nr=$O(^HULP(%J,KL,Nr)) Q:Nr=""  Do
  ..S R=^(Nr)
  ..S Cnt=Cnt+1
- ..I Naam=$P(R,D,8) S $P(R,D,8)=""
- ..E  S Naam=$P(R,D,8)
+ ..;I Naam=$P(R,D,8) S $P(R,D,8)=""
+ ..;E  S Naam=$P(R,D,8)
+ ..S Naam=$P(R,D,8)
  ..S:First=$P(R,D,3) $P(R,D,14)="" S First=$P(R,D,3)
  ..;S:'First $P(R,D,8)="",$P(R,D,14)=""
  ..S ^HULP(%J,Cnt)=R ;,First=0