Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -N -r1.25.2.4 -r1.25.2.5
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	22 Mar 2007 11:53:50 -0000	1.25.2.4
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	14 Jun 2007 08:52:25 -0000	1.25.2.5
@@ -393,7 +393,7 @@
 			   $element(options) : ""}]
 
   if { $element(mode) eq "edit" } {
-    set attributes(id) "richtext__$element(form_id)__$element(id)"
+    set attributes(id) $element(id)
     set package_id_templating [apm_package_id_from_key "acs-templating"]
 
     set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]]
@@ -437,7 +437,7 @@
 
 	set output "<script type='text/javascript'><!--\nwriteRichText('$element(id)','$contents',500,200,true,false,'<input name=\"$element(id).format\" value=\"text/html\" type=\"hidden\">','[string map {\n \\n \r {} "'" "&\#39"} $output]'); //--></script><noscript id=\"rte-noscr-$element(id)\">$noscript_output</noscript>"
       } elseif {$richtextEditor eq "xinha"} {
-	append output "<script>document.write(\"<input name='$element(id).format' value='text/html' type='hidden'>\");</script>\n"
+	append output "<script type='text/javascript'>document.write(\"<input name='$element(id).format' value='text/html' type='hidden'>\");</script>\n"
           append output "<noscript><br/>[_ acs-templating.Format]: $format_menu</noscript>\n"
 	
 	# we have a xinha richtext widget, specified by "options {editor xinha}"
@@ -498,7 +498,7 @@
     if { $spellcheck(render_p) } {
         append output " [_  acs-templating.Spellcheck]: " \
 	  [menu "$element(id).spellcheck" [nsv_get spellchecker lang_options] \
-	       $spellcheck(selected_option) attributes]
+	       $spellcheck(selected_option) {}]
     }
   } else {
     # Display mode