--- loncom/interface/Attic/lonspreadsheet.pm	2003/03/10 20:21:45	1.176
+++ loncom/interface/Attic/lonspreadsheet.pm	2003/03/11 15:00:47	1.177
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.176 2003/03/10 20:21:45 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.177 2003/03/11 15:00:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1523,7 +1523,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;