--- loncom/lonnet/perl/lonnet.pm	2005/08/09 16:33:03	1.650
+++ 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 2005/08/09 16:33:03 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;