Index: cA508.mac.rou
===================================================================
diff -u -r29059 -r40076
--- cA508.mac.rou	(.../cA508.mac.rou)	(revision 29059)
+++ cA508.mac.rou	(.../cA508.mac.rou)	(revision 40076)
@@ -41,7 +41,8 @@
  K (%ZR,%ZM,Q,QL,QM,QN,QO,QRVG,QT,QTU,QU,QW,QZ,D,DT,TD,DD,DM,DJ,F70,F71,U,boot,cs,master,workst,io)
  S io=$G(io,$$IO^cQ5),QP=1
  I $L($G(F71)) X F71
- I $L($G(^cLOG(boot,"TERMINAL",io))) X ^(io)
+ S ^cLOG(cs,"TERMINAL",io) = "D ^vhINITML"
+ D ^vhINITML
  B 1 I '$D(F) S D="\",U=";" D ^cA607
 10 S QS="",QM=+$G(QM) G Q:$G(Q)'?1.3U,Q:'$D(@("^"_QS_Q_"BA(99,1)")) S QN=$G(QN,^(1))
 11 S %Q1="^"_Q_"BA(""%1"",$I)",@%Q1=1,QD=+$G(@("^"_QS_Q_"BA(34)")),QL=$G(QL),QO=$G(QO),QP=1,QT=$G(QT)
@@ -156,3 +157,4 @@
  ;
 ZZ ; 05.02.01 - 16 u 23 * V7.84
 
+