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 -N -r1.29 -r1.30
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	2 Oct 2007 19:08:19 -0000	1.29
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	28 Jul 2012 04:31:20 -0000	1.30
@@ -355,6 +355,7 @@
   get_reference
 
   if { [info exists element(value)] } {
+    regsub {<script>} $element(value) {\<\s\c\r\i\p\t\>} $element(value)
     return $element(value)
   } else {
     return ""
@@ -374,7 +375,7 @@
     @see template::element::get_value
 } {
   get_reference
-
+  regsub {<script>} $element(values) {\<\s\c\r\i\p\t\>} $element(values)
   return $element(values)
 }