--- loncom/auth/lonroles.pm	2000/06/07 19:19:31	1.2
+++ loncom/auth/lonroles.pm	2000/06/12 18:25:03	1.3
@@ -69,7 +69,7 @@ ENDHEADER
 $r->print('<input type=hidden name=blue value=green><input type=submit></form>');
     }
     my $envkey;
-    foreach $envkey (keys %ENV) {
+    foreach $envkey (sort keys %ENV) {
 	$r->print("$envkey ---- $ENV{$envkey}<br>");
         if ($envkey=~/^user\.role\./) {
 	    my ($dum1,$dum2,$role,$where)=split(/\./,$envkey);