--- loncom/interface/spreadsheet/Spreadsheet.pm	2003/07/16 16:48:51	1.19
+++ loncom/interface/spreadsheet/Spreadsheet.pm	2003/08/01 13:47:26	1.20
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.19 2003/07/16 16:48:51 matthew Exp $
+# $Id: Spreadsheet.pm,v 1.20 2003/08/01 13:47:26 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -794,8 +794,8 @@ sub expandnamed {
 	my @vars=split(/\W+/,$formula);
         my %values=();
 	foreach my $varname ( @vars ) {
-            if ($varname=~/\D/) {
-               $formula=~s/$varname/'$c{\''.$varname.'\'}'/ge;
+            if ($varname=~/^(parameter|stores|timestamp)/) {
+                $formula=~s/$varname/'$c{\''.$varname.'\'}'/ge;
                $varname=~s/$var/\([\\w:\\- ]\+\)/g;
 	       foreach (keys(%{$self->{'constants'}})) {
 		  if ($_=~/$varname/) {