--- loncom/lonnet/perl/lonnet.pm	2020/11/24 14:59:05	1.1432
+++ loncom/lonnet/perl/lonnet.pm	2020/11/24 16:36:35	1.1433
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1432 2020/11/24 14:59:05 raeburn Exp $
+# $Id: lonnet.pm,v 1.1433 2020/11/24 16:36:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5015,7 +5015,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};
                     }