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 -r1.10 -r1.11
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	5 Oct 2003 17:55:55 -0000	1.10
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	9 Oct 2003 11:07:40 -0000	1.11
@@ -187,13 +187,11 @@
       append output [textarea_internal "$element(id)" attributes $contents]
       append output "<br>Format: [menu "$element(id).format" [template::util::richtext::format_options] $format {}]"
 
-      set spellcheck_properties [template::util::spellcheck::spellcheck_properties -element_ref element]
-      set spellcheck [lindex $spellcheck_properties 0]
+      # Spell-checker
+      array set spellcheck [template::util::spellcheck::spellcheck_properties -element_ref element]
 
-      if { ![string equal ":nospell:" $spellcheck] } {
-          set selected_option [lindex $spellcheck_properties 1]
-
-          append output " Spellcheck: [menu "$element(id).spellcheck" [nsv_get spellchecker lang_options] $selected_option {}]"
+      if { $spellcheck(render_p) } {
+          append output " Spellcheck: [menu "$element(id).spellcheck" [nsv_get spellchecker lang_options] $spellcheck(selected_option) {}]"
       }   
 
   } else {