--- loncom/interface/loncommon.pm	2002/03/06 20:24:44	1.26
+++ loncom/interface/loncommon.pm	2002/03/21 20:24:21	1.27
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.26 2002/03/06 20:24:44 matthew Exp $
+# $Id: loncommon.pm,v 1.27 2002/03/21 20:24:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -393,7 +393,7 @@ sub no_cache {
 sub add_to_env {
   my ($name,$value)=@_;
   if ($ENV{$name}) {
-    if (defined(@{ $ENV{$name} })) {
+    if (ref($ENV{$name})) {
       #already have multiple values
       push(@{ $ENV{$name} },$value);
     } else {