--- loncom/interface/spreadsheet/Spreadsheet.pm	2005/10/12 21:48:32	1.57
+++ loncom/interface/spreadsheet/Spreadsheet.pm	2005/12/06 06:04:49	1.59
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.57 2005/10/12 21:48:32 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.59 2005/12/06 06:04:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1665,7 +1665,7 @@ sub load {
 
 sub cache_sheet {
     my $self = shift;
-    my $formulas=(@_);
+    my ($formulas) = @_;
     my $stype = $self->{'type'};
     my $cnum  = $self->{'cnum'};
     my $cdom  = $self->{'cdom'};
@@ -1673,7 +1673,7 @@ sub cache_sheet {
     my $filename = $self->filename();
     my $cachekey = join('_',($cnum,$cdom,$stype,$filename));
 
-    if (ref($self->{'formulas'}) eq 'HASH') {
+    if (ref($formulas) eq 'HASH') {
 	%{$spreadsheets{$cachekey}->{'formulas'}} = %{$formulas};
     }
     if (ref($self->{'row_source'})) {