Index: openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl,v
diff -u -N -r1.3.10.3 -r1.3.10.4
--- openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	29 Sep 2013 19:28:13 -0000	1.3.10.3
+++ openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	2 Oct 2013 22:55:57 -0000	1.3.10.4
@@ -541,8 +541,9 @@
 	    regsub -all &xml:intdtd\; $text \[$options(-internaldtd)\] text
 
 	    # Look for entity references
-	    if {([array size entities] || [string length $options(-entityreferencecommand)]) && \
-		[regexp {&[^;]+;} $text]} {
+	    if {([array size entities] || [string length $options(-entityreferencecommand)]) 
+                && [regexp {&[^;]+;} $text]
+            } {
 
 		# protect Tcl specials
 		regsub -all {([][$\\])} $text {\\\1} text