Index: openacs-4/packages/edit-this-page/www/etp-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/edit-this-page/www/etp-edit.tcl	4 Sep 2002 13:01:46 -0000	1.3
+++ openacs-4/packages/edit-this-page/www/etp-edit.tcl	23 Jan 2003 19:56:05 -0000	1.4
@@ -61,7 +61,7 @@
     }
     append widget "</select>\n"
 } elseif {$type == "string" && [regexp -nocase {(rows|cols)} $html]} {
-    set widget "<textarea name=\"$attribute\" $html>$value</textarea>\n"
+    set widget "<textarea name=\"$attribute\" $html>[ad_quotehtml $value]</textarea>\n"
 } elseif {$type == "date"} {
     if [empty_string_p $value] {
 	set widget [ad_dateentrywidget datevalue]