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 -N -r1.32 -r1.33
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	17 Dec 2003 20:21:41 -0000	1.32
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	7 Jan 2004 01:55:19 -0000	1.33
@@ -162,12 +162,7 @@
     ns_quotehtml does not).
 
 } {
-    # we have to do & first or we'll hose ourselves with the ones lower down
-    regsub -all & $arg \\&amp\; arg
-    regsub -all \" $arg \\&quot\; arg
-    regsub -all < $arg \\&lt\; arg
-    regsub -all > $arg \\&gt\; arg
-    return $arg
+    return [string map {& &amp; \" &quot; < &lt; > &gt;} $arg]
 }