Index: cA501.mac.rou
===================================================================
diff -u -r29059 -r40076
--- cA501.mac.rou	(.../cA501.mac.rou)	(revision 29059)
+++ cA501.mac.rou	(.../cA501.mac.rou)	(revision 40076)
@@ -43,7 +43,8 @@
 12 S QD=+$G(@("^"_QS_Q_"BA(34)")),QL=$G(QL),QO=$G(QO),QP=1,QT=$G(QT)
 13 I $L($G(F71)) X F71
  S F71="D ^cA606"
- I $L($G(^cLOG(cs,"TERMINAL",io))) X ^(io)
+ S ^cLOG(cs,"TERMINAL",io) = "D ^vhINITML"
+ D ^vhINITML
  ;
  ; directe selectie
 2 K R7 S:'$L(QO) R12=0 S:$L(QO) R7=+$P(QO,"."),QO=$P(QO,".",2,99) S QZ=$G(QZ,5)
@@ -153,3 +154,4 @@
 ZZ ; 30.03.01 - 13 u 39 * V7.85
 
 
+