--- loncom/interface/Attic/lonspreadsheet.pm	2003/03/07 04:20:20	1.174
+++ loncom/interface/Attic/lonspreadsheet.pm	2003/03/07 23:32:05	1.175
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.174 2003/03/07 04:20:20 albertel Exp $
+# $Id: lonspreadsheet.pm,v 1.175 2003/03/07 23:32:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1526,7 +1526,7 @@ sub expandnamed {
 	foreach my $varname ( @vars ) {
             if ($varname=~/\D/) {
                $formula=~s/$varname/'$c{\''.$varname.'\'}'/ge;
-               $varname=~s/$var/\([\\w:-]\+\)/g;
+               $varname=~s/$var/\([\\w:- ]\+\)/g;
 	       foreach (keys(%{$self->{'constants'}})) {
 		  if ($_=~/$varname/) {
 		      $values{$1}=1;