Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.52 -r1.53
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	3 Oct 2003 10:14:30 -0000	1.52
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	9 Oct 2003 10:26:24 -0000	1.53
@@ -4442,3 +4442,12 @@
 }
 
 
+
+ad_proc -public util::subst_safe { string } {
+    Make string safe for subst'ing.
+} {
+    regsub -all {\$} $string {\$} string
+    regsub -all {\[} $string {\[} string
+    regsub -all {\]} $string {\]} string
+    return $string
+}