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.1.1.1 -r1.1.1.1.10.1
--- openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	13 Mar 2001 22:59:27 -0000	1.1.1.1
+++ openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	15 Dec 2003 12:22:45 -0000	1.1.1.1.10.1
@@ -739,7 +739,7 @@
     upvar #0 $options(-statevariable) state
 
     if {![string length $entities]} {
-	set entities [namespace current EntityPredef]
+	set entities [namespace current]::EntityPredef
     }
 
     switch -glob -- $ref {