--- loncom/xml/londefdef.pm	2001/05/04 16:10:17	1.28
+++ loncom/xml/londefdef.pm	2001/06/02 03:59:59	1.30
@@ -29,7 +29,7 @@ sub end_output {
 }
 #-- <m> tag
         sub start_m {
-	    my ($target,$token,$parstack,$parser) = @_;
+	    my ($target,$token,$tagstack,$parstack,$parser) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
 		my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); 
@@ -58,7 +58,8 @@ sub end_output {
 	    my ($target,$token) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
-              $currentstring = &Apache::lonxml::xmlbegin();     
+              $currentstring = &Apache::lonxml::xmlbegin().
+                               &Apache::lonxml::fontsettings();     
 	    } 
 	   return $currentstring;
 	}
@@ -83,7 +84,8 @@ sub end_output {
 	    my ($target,$token) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
-              $currentstring = &Apache::lonxml::registerurl().$token->[2];    
+              $currentstring = &Apache::lonxml::registerurl().
+                               $token->[2];    
             } 
 	   return $currentstring;
 	}
@@ -217,7 +219,7 @@ sub end_output {
 	}
 #-------------------------------------------------------------------------- <meta> tag
       sub start_meta {
-	    my ($target,$token,$parstack,$parser) = @_;
+	    my ($target,$token,$tagstack,$parstack,$parser) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
 	      my $args='';
@@ -243,7 +245,7 @@ sub end_output {
 	   return $currentstring;
 	}
       sub end_meta {
-	my ($target,$token,$parstack,$parser) = @_;
+	my ($target,$token,$tagstack,$parstack,$parser) = @_;
 	my $currentstring = '';
 	if ($target eq 'web') {
 	  my $args='';
@@ -956,7 +958,7 @@ sub end_output {
            return $currentstring;
 	}
         sub end_a {
-	    my ($target,$token,$stackref) = @_;
+	    my ($target,$token,$tagstack,$stackref) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
 	       $currentstring .= $token->[2];
@@ -974,7 +976,7 @@ sub end_output {
 	}
 #---------------------------------------------------------------------------- <li> tag
         sub start_li {
-	    my ($target,$token,$stackref) = @_;
+	    my ($target,$token,$tagstack,$stackref) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
               $currentstring = $token->[4];