--- loncom/interface/spreadsheet/Spreadsheet.pm	2006/09/03 00:54:05	1.72
+++ loncom/interface/spreadsheet/Spreadsheet.pm	2007/01/23 01:29:15	1.73
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.72 2006/09/03 00:54:05 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.73 2007/01/23 01:29:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -807,6 +807,8 @@ sub expandnamed {
     if ($expression=~/^\&/) {
 	my ($func,$var,$formula)=($expression=~/^\&(\w+)\(([^\;]+)\;(.*)\)/);
 	my @vars=split(/\W+/,$formula);
+	# make the list uniq
+	@vars = keys(%{{ map { $_ => 1 } @vars }});
         my %values=();
 	foreach my $varname ( @vars ) {
             if ($varname=~/^(parameter|stores|timestamp)/) {