--- loncom/lonnet/perl/lonnet.pm	2008/11/29 09:57:43	1.974
+++ loncom/lonnet/perl/lonnet.pm	2008/11/29 10:34:29	1.975
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.974 2008/11/29 09:57:43 raeburn Exp $
+# $Id: lonnet.pm,v 1.975 2008/11/29 10:34:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2489,7 +2489,12 @@ sub courseacclog {
         # FIXME: Probably ought to escape things....
 	foreach my $key (keys(%env)) {
             if ($key=~/^form\.(.*)/) {
-		$what.=':'.$1.'='.$env{$key};
+                my $formitem = $1;
+                if ($formitem =~ /^HWFILE(?:SIZE|TOOBIG)/) {
+                    $what.=':'.$formitem.'='.$env{$key};
+                } elsif ($formitem !~ /^HWFILE(?:[^.]+)$/) {
+                    $what.=':'.$formitem.'='.$env{$key};
+                }
             }
         }
     } elsif ($fnsymb =~ m:^/adm/searchcat:) {