--- loncom/lonnet/perl/lonnet.pm	2001/01/09 22:12:28	1.90
+++ loncom/lonnet/perl/lonnet.pm	2001/01/09 22:27:07	1.91
@@ -256,8 +256,10 @@ sub appenv {
          $fh->close();
          return 'error: '.$!;
      }
+     &logthis("<font color=green>appenv LOCK_SH gotten");
      @oldenv=<$fh>;
      $in=$#oldenv+1;
+     &logthis("<font color=green>appenv LOCK_SH to be closed");
      $fh->close();
     }
     &logthis("<font color=green>Number of elements read appenv: ".$in."from".join(" ",caller));
@@ -282,11 +284,13 @@ sub appenv {
          $fh->close();
          return 'error: '.$!;
      }
+     &logthis("<font color=green>appenv LOCK_EX gotten");
      $out=0;
      foreach $newname (sort keys %newenv) {
 	 print $fh "$newname=$newenv{$newname}\n";
 	 $out++;
      }
+     &logthis("<font color=green>appenv LOCK_EX to be closed");
      $fh->close();
     }
     &logthis("<font color=green>Number of elements read appenv: ".$in." number out:".$out."from".join(" ",caller));