--- loncom/interface/loncommon.pm	2005/04/07 06:56:22	1.258
+++ loncom/interface/loncommon.pm	2005/04/07 08:15:41	1.259
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.258 2005/04/07 06:56:22 albertel Exp $
+# $Id: loncommon.pm,v 1.259 2005/04/07 08:15:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3135,18 +3135,14 @@ sub add_to_env {
     if (ref($env{$name})) {
       #already have multiple values
       push(@{ $env{$name} },$value);
-      push(@{ $ENV{$name} },$value);
     } else {
       #first time seeing multiple values, convert hash entry to an arrayref
       my $first=$env{$name};
       undef($env{$name});
-      undef($ENV{$name});
       push(@{ $env{$name} },$first,$value);
-      push(@{ $ENV{$name} },$first,$value);
     }
   } else {
     $env{$name}=$value;
-    $ENV{$name}=$value;
   }
 }