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.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	30 Nov 2002 17:23:55 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	27 Jan 2003 10:30:01 -0000	1.11
@@ -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