--- loncom/xml/lonxml.pm	2001/03/19 20:08:53	1.57
+++ loncom/xml/lonxml.pm	2001/03/20 16:47:21	1.58
@@ -179,7 +179,7 @@ sub recurse {
       if (($tokenpat->[0] eq 'T') || ($tokenpat->[0] eq 'C') || ($tokenpat->[0] eq 'D') ) {
 	$partstring = $tokenpat->[1];
       } elsif ($tokenpat->[0] eq 'PI') {
-	$result=$tokenpat->[2];
+	$partstring = $tokenpat->[2];
       } elsif ($tokenpat->[0] eq 'S') {
 	push (@innerstack,$tokenpat->[1]);
 	push (@innerparstack,&parstring($tokenpat));