--- loncom/lonnet/perl/lonnet.pm	2002/10/16 14:48:20	1.298
+++ loncom/lonnet/perl/lonnet.pm	2002/10/22 21:49:10	1.299
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.298 2002/10/16 14:48:20 matthew Exp $
+# $Id: lonnet.pm,v 1.299 2002/10/22 21:49:10 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1103,7 +1103,7 @@ sub devalidate {
     if ($cid) {
 	my $key=$ENV{'user.name'}.':'.$ENV{'user.domain'}.':';
         my $status=
-	    &del('nohist_calculatedsheet',
+	    &del('nohist_calculatedsheets',
 		 [$key.'studentcalc'],
 		 $ENV{'course.'.$cid.'.domain'},
 		 $ENV{'course.'.$cid.'.num'})