Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -N -r1.55 -r1.56
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	1 Oct 2017 12:16:05 -0000	1.55
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	5 Dec 2017 15:37:18 -0000	1.56
@@ -308,6 +308,7 @@
     attribute_reference
     {value {}}
     {mode edit}
+    {tag textarea}
 } {
     Do the actual construction of a textarea widget, called by various user-callable
     widgets.
@@ -324,24 +325,29 @@
     upvar $attribute_reference attributes
 
     if { $mode ne "edit" } {
-        set output {}
+        set output ""
         if { $value ne "" } {
-            append output "[ns_quotehtml $value]<input type=\"hidden\" name=\"$name\" value=\"[ns_quotehtml $value]\">"
+            append output \
+                [ns_quotehtml $value] \
+                "<input type=\"hidden\" name=\"$name\" value=\"[ns_quotehtml $value]\">"
         }
     } else {
-        set output "<textarea name=\"$name\""
+        if {$tag ne "textarea"} {
+            set output "<$tag"
+        } else {
+            set output "<textarea name=\"$name\""
+        }
         
         foreach attribute_name [array names attributes] {
-            if {$attributes($attribute_name) eq {}} {
+            if {$attributes($attribute_name) eq ""} {
                 append output " $attribute_name"
             } else {
-                append output " $attribute_name=\"$attributes($attribute_name)\""
+                append output " $attribute_name=\"[ns_quotehtml $attributes($attribute_name)]\""
             }
         }
-        
-        append output ">[ns_quotehtml $value]</textarea>"
+        append output ">[ns_quotehtml $value]</$tag>"
     }
-    
+
     return $output
 }