--- loncom/interface/loncommon.pm	2005/11/08 20:23:41	1.285
+++ loncom/interface/loncommon.pm	2005/11/10 00:37:39	1.286
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.285 2005/11/08 20:23:41 albertel Exp $
+# $Id: loncommon.pm,v 1.286 2005/11/10 00:37:39 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1186,7 +1186,7 @@ sub multiple_select_form {
         }
     }
     $output.="\n<select name='$name' size='$size' multiple='1'>";
-    my @order = ref($order) ? @{$order}
+    my @order = ref($order) ? @$order
                             : sort(keys(%$hash));
     foreach my $key (@order) {
         $output.='<option value="'.$key.'" ';