###########################################################################
  ###  Patch to write out current output
  ###  J.R. Greer   jrg@albedo.net
   open (COL,">$$cfg{'workdir'}${main::SL}$$rcfg{'directory'}{$router}$router.cur") || 
      warn ("\nCan not write $router.cur");
      print COL "$$cuin{'d'}{$router}:$$cuout{'d'}{$router}\n";
   close (COL);
  ############################################################################