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 -r1.3.10.4 -r1.3.10.5
--- openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	2 Oct 2013 22:55:57 -0000	1.3.10.4
+++ openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	10 Oct 2013 20:44:08 -0000	1.3.10.5
@@ -739,7 +739,7 @@
     upvar 2 $opts options
     upvar #0 $options(-statevariable) state
 
-    if {![string length $entities]} {
+    if {$entities eq ""} {
 	set entities [namespace current]::EntityPredef
     }