--- loncom/lonnet/perl/lonnet.pm	2020/11/24 15:03:06	1.1172.2.131
+++ loncom/lonnet/perl/lonnet.pm	2020/11/24 16:38:00	1.1172.2.132
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.131 2020/11/24 15:03:06 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.132 2020/11/24 16:38:00 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4688,7 +4688,7 @@ sub courseacclog {
                     $what.=':'.$formitem.'='.$env{$key};
                 } elsif ($formitem !~ /^HWFILE(?:[^.]+)$/) {
                     if ($formitem eq 'proctorpassword') {
-                        $what.=':'.$formitem.'=********';
+                        $what.=':'.$formitem.'=' . '*' x length($env{$key});
                     } else {
                         $what.=':'.$formitem.'='.$env{$key};
                     }