Index: PRBS.mac.rou
===================================================================
diff -u -r1672 -r1880
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1672)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1880)
@@ -96,7 +96,7 @@
  ;
 AskVersion(MPRNr)
 	New Input
-	Quit:$P(^PRBS("BS",MPRNr),"\",3)=""
+	Quit:$P($Get(^PRBS("BS",MPRNr)),"\",3)=""
 	Set Input=$$^vhTXTPOP("PRBS","CLEARVERSION",,$P(^PRBS("BS",MPRNr),"\",3))
 	If Input="W" Do WisVersion(MPRNr)
 	Quit