--- loncom/xml/londefdef.pm	2005/02/25 05:54:01	1.258
+++ loncom/xml/londefdef.pm	2005/03/01 03:21:58	1.259
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.258 2005/02/25 05:54:01 albertel Exp $
+# $Id: londefdef.pm,v 1.259 2005/03/01 03:21:58 albertel Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -184,7 +184,7 @@ sub end_html {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
     my $currentstring = '';
     if ($target eq 'web') {
-	$currentstring = &Apache::lonxml::xmlend($target,$parser);
+	$currentstring = '</html>';
     }
     return $currentstring;
 }
@@ -564,10 +564,10 @@ EDITBUTTON
 }
 
 sub end_body {
-    my ($target,$token) = @_;
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
     my $currentstring = '';
     if ($target eq 'web') {
-	$currentstring = $token->[2];     
+	$currentstring = &Apache::lonxml::xmlend($target,$parser);
     } elsif ($target eq 'tex') {
 	$currentstring = '\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent \end{document}';  
     }