--- loncom/lonnet/perl/lonnet.pm	2001/01/09 23:04:15	1.92
+++ loncom/lonnet/perl/lonnet.pm	2001/01/09 23:05:22	1.93
@@ -281,7 +281,7 @@ sub appenv {
          $fh->close();
          return 'error: '.$!;
      }
-     foreach $newname (sort keys %newenv) {
+     foreach $newname (keys %newenv) {
 	 print $fh "$newname=$newenv{$newname}\n";
      }
      $fh->close();