--- loncom/lonnet/perl/lonnet.pm	2001/01/11 11:08:37	1.96
+++ loncom/lonnet/perl/lonnet.pm	2001/01/11 11:11:27	1.97
@@ -248,7 +248,7 @@ sub appenv {
 
     my $lockfh;
     unless ($lockfh=Apache::File->new("$ENV{'user.environment'}")) {
-       return 'error';
+       return 'error: '.$!;
     }
     unless (flock($lockfh,LOCK_EX)) {
          &logthis("<font color=blue>WARNING: ".
@@ -261,7 +261,7 @@ sub appenv {
     {
      my $fh;
      unless ($fh=Apache::File->new("$ENV{'user.environment'}")) {
-	return 'error';
+	return 'error: '.$!;
      }
      @oldenv=<$fh>;
      $fh->close();