Index: PRKLEUR.mac.rou
===================================================================
diff -u -r31098 -r48224
--- PRKLEUR.mac.rou	(.../PRKLEUR.mac.rou)	(revision 31098)
+++ PRKLEUR.mac.rou	(.../PRKLEUR.mac.rou)	(revision 48224)
@@ -93,7 +93,7 @@
  New I,KortTxt,Kode,Kleur New:PRNr?4.7N B
  Set Taal=$G(Taal,"N")
  If PRNr For I=0:1 Quit:'$D(^KPR(PRNr,I))  Set B(I+1)=^KPR(PRNr,I)
- Set KortTxt=$P(B(1),D),Kode=$E(KortTxt,22,25)
+ Set KortTxt=$P(B(1),"\"),Kode=$E(KortTxt,22,25)
  Set:$L(Kode) Kleur=$G(^KCOL(Kode_" ",Taal))
  Quit $G(Kleur)
  ;