--- loncom/lonnet/perl/lonnet.pm	2000/12/29 22:40:33	1.85
+++ loncom/lonnet/perl/lonnet.pm	2001/01/05 20:06:07	1.86
@@ -258,9 +258,11 @@ sub appenv {
 	return 'error';
      }
      my $newname;
+     flock($fh,'LOCK_EX');
      foreach $newname (keys %newenv) {
 	 print $fh "$newname=$newenv{$newname}\n";
      }
+     $fh->close();
     }
     return 'ok';
 }