Index: PRBS.mac.rou
===================================================================
diff -u -r1894 -r1932
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1894)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1932)
@@ -433,7 +433,7 @@
 	Quit:(GENTYP'?1(1"KAD",1"PRF",1"GLA",1"TBX",1"GRP",1"TLM",1"ASM"))
 	Quit:$D(^PRBS("BS",MPRNr))=""
 	Quit:$G(NoSa)'="S"&&(GENTYP?1(1"KAD",1"PRF",1"GLA")) ; Kaderdeur is niet mogelijk bij normale prijs
-	Set VersionIsFilled=($P(^PRBS("BS",MPRNr),"\",3)'="")
+	Set VersionIsFilled=($P($G(^PRBS("BS",MPRNr)),"\",3)'="")
 	Set:'VersionIsFilled $P(^PRBS("BS",MPRNr),"\",3)="v9.9.9" ; tijdelijk opzetten om de KPRCreate te kunnen uitvoeren
 	If $G(NoSa)="S" Do
 	. 	  d WLIP^vhDBG(97,"KPRCreateSchaduwViaPRNr")