--- loncom/lonnet/perl/lonnet.pm	2005/04/18 22:28:19	1.627
+++ loncom/lonnet/perl/lonnet.pm	2005/04/22 21:01:25	1.628
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.627 2005/04/18 22:28:19 albertel Exp $
+# $Id: lonnet.pm,v 1.628 2005/04/22 21:01:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -258,6 +258,7 @@ sub critical {
 
 sub transfer_profile_to_env {
     my ($lonidsdir,$handle)=@_;
+    undef(%env);
     my @profile;
     {
 	open(my $idf,"$lonidsdir/$handle.id");
@@ -827,8 +828,11 @@ sub getsection {
 }
 
 sub save_cache {
+    my ($r)=@_;
+    if (! $r->is_initial_req()) { return DECLINED; }
     &purge_remembered();
     undef(%env);
+    return OK;
 }
 
 my $to_remember=-1;