Index: ZBCHKWN.mac.rou
===================================================================
diff -u -r49361 -r49423
--- ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49361)
+++ ZBCHKWN.mac.rou	(.../ZBCHKWN.mac.rou)	(revision 49423)
@@ -8,7 +8,7 @@
  .Quit
  .Xecute F70
  .Write @F80
- Do PR,OD:$G(Check)'=0,TO:$G(Check)'=0
+ Do OD:$G(Check)'=0,TO:$G(Check)'=0,PR:(Check)
  If '$D(Check) Do
  .Quit
  .Xecute F71
@@ -175,4 +175,3 @@
  Do ZBCHKWN
  Quit Check
  ;
-