--- loncom/lonnet/perl/lonnet.pm	2005/08/17 19:18:36	1.650.2.1
+++ loncom/lonnet/perl/lonnet.pm	2005/08/31 08:25:16	1.651
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.650.2.1 2005/08/17 19:18:36 albertel Exp $
+# $Id: lonnet.pm,v 1.651 2005/08/31 08:25:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4420,8 +4420,10 @@ sub EXT {
     if ($realm eq 'user') {
 # --------------------------------------------------------------- user.resource
 	if ($space eq 'resource') {
-	    if (defined($Apache::lonhomework::parsing_a_problem) ||
-		defined($Apache::lonhomework::parsing_a_task)) {
+	    if ( (defined($Apache::lonhomework::parsing_a_problem)
+		  || defined($Apache::lonhomework::parsing_a_task))
+		 &&
+		 ($symbparm eq &symbread()) ) {
 		return $Apache::lonhomework::history{$qualifierrest};
 	    } else {
 		my %restored;
@@ -5880,7 +5882,7 @@ BEGIN {
     }
     close($config);
     # FIXME: dev server don't want this, production servers _do_ want this
-    &get_iphost();
+    #&get_iphost();
 }
 
 sub get_iphost {