--- loncom/interface/spreadsheet/Spreadsheet.pm	2005/10/13 10:27:28	1.58
+++ loncom/interface/spreadsheet/Spreadsheet.pm	2005/12/08 02:22:15	1.60
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.58 2005/10/13 10:27:28 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.60 2005/12/08 02:22:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -697,7 +697,7 @@ sub get_values {
 	}
 	return \@values;
     } else {
-	$num = '(\d+)';
+	$num = '([1-9]\d*)';
     }
     if (($la eq '*') || ($ua eq '*')) {
         $alpha='[A-z]';
@@ -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'};