--- loncom/lonnet/perl/lonnet.pm	2005/05/05 20:55:04	1.634
+++ loncom/lonnet/perl/lonnet.pm	2005/05/06 06:45:01	1.635
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.634 2005/05/05 20:55:04 albertel Exp $
+# $Id: lonnet.pm,v 1.635 2005/05/06 06:45:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -258,7 +258,6 @@ sub critical {
 
 sub transfer_profile_to_env {
     my ($lonidsdir,$handle)=@_;
-    undef(%env);
     my @profile;
     {
 	open(my $idf,"$lonidsdir/$handle.id");