--- loncom/lond	2002/01/20 18:01:43	1.63
+++ loncom/lond	2002/01/20 18:28:31	1.64
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.63 2002/01/20 18:01:43 www Exp $
+# $Id: lond,v 1.64 2002/01/20 18:28:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -194,7 +194,6 @@ sub checkchildren {
     &logthis('Going to check on the children');
     $docdir=$perlvar{'lonDocRoot'};
     foreach (sort keys %children) {
-        unlink("$docdir/lon-status/londchld/$_.txt");
 	sleep 1;
         unless (kill 'USR1' => $_) {
 	    &logthis ('Child '.$_.' is dead');
@@ -205,7 +204,7 @@ sub checkchildren {
     foreach (sort keys %children) {
         unless (-e "$docdir/lon-status/londchld/$_.txt") {
 	    &logthis('Child '.$_.' did not respond');
-            kill -9 => $_;
+            kill 9 => $_;
         }
     }
 }
@@ -244,6 +243,11 @@ sub initnewstatus {
     my $now=time;
     my $local=localtime($now);
     print $fh "LOND status $local - parent $$\n\n";
+    opendir(DIR,"$docdir/lon-status/londchld");
+    while ($filename=readdir(DIR)) {
+        unlink("$docdir/lon-status/londchld/$filename");
+    }
+    closedir(DIR);
 }
 
 # -------------------------------------------------------------- Status setting