--- loncom/loncnew	2010/12/20 11:15:51	1.90
+++ loncom/loncnew	2010/12/21 11:17:03	1.92
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.90 2010/12/20 11:15:51 foxr Exp $
+# $Id: loncnew,v 1.92 2010/12/21 11:17:03 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -441,7 +441,8 @@ Trigger disconnections of idle sockets.
 
 sub SetupTimer {
     Debug(6, "SetupTimer");
-    Event->timer(interval => 1, cb => \&Tick );
+    Event->timer(interval => 1, cb => \&Tick,
+	hard => 1);
 }
 
 =pod
@@ -1775,6 +1776,7 @@ sub CreateChild {
     my $sigset = POSIX::SigSet->new(SIGINT);
     sigprocmask(SIG_BLOCK, $sigset);
     $RemoteHost = $host;
+    ShowStatus('Parent keeping the flock'); # Update time in status message.
     Log("CRITICAL", "Forking server for ".$host);
     my $pid          = fork;
     if($pid) {			# Parent