Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	28 Jul 2012 04:31:20 -0000	1.30
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	2 Nov 2012 12:44:15 -0000	1.31
@@ -355,7 +355,7 @@
   get_reference
 
   if { [info exists element(value)] } {
-    regsub {<script>} $element(value) {\<\s\c\r\i\p\t\>} $element(value)
+    regsub {<script>} $element(value) {\<\s\c\r\i\p\t\>} element(value)
     return $element(value)
   } else {
     return ""
@@ -375,7 +375,7 @@
     @see template::element::get_value
 } {
   get_reference
-  regsub {<script>} $element(values) {\<\s\c\r\i\p\t\>} $element(values)
+  regsub {<script>} $element(values) {\<\s\c\r\i\p\t\>} element(values)
   return $element(values)
 }