Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.9.2.3 -r1.9.2.4
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	8 Nov 2002 17:09:09 -0000	1.9.2.3
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	27 Jan 2003 10:30:57 -0000	1.9.2.4
@@ -363,14 +363,17 @@
     # we should now walk the stack and close any open tags.
 
     for {set i $tagptr} { $i > -1 } {incr i -1} { 
-        # append out "<!-- autoclose --> </$tagstack($i)>"
-        append out "</$tagstack($i)>"
+        set tag $tagstack($i)
+
+        # LARS: Only close tags which we aren't supposed to remove
+        if { ![string equal $syn($tag) "discard"] && ![string equal $syn($tag) "remove"] } {
+            append out "</$tagstack($i)>"
+        }
     }
     
     return $out
 }
 
-
 ad_proc ad_parse_html_attributes {
     -attribute_array
     html