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.67.2.15 -r1.67.2.16
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 25 Nov 2016 14:47:44 -0000 1.67.2.15
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 10 Jan 2017 08:29:51 -0000 1.67.2.16
@@ -602,7 +602,7 @@
set tag $tagstack($i)
# LARS: Only close tags which we aren't supposed to remove
- if { $syn($tag) ne "discard" && $syn($tag) ne "remove" } {
+ if { $syn($tag) ni {discard remove}} {
append out "$tagstack($i)>"
}
}