Index: openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	29 Jan 2004 14:38:29 -0000	1.13
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	29 Jan 2004 15:46:09 -0000	1.14
@@ -59,7 +59,8 @@
 	# special treatment for the "richtext" datatype.
     	set format [template::util::richtext::get_property format [lindex $values 0]]
 	if { ![empty_string_p $merge_text] } {
-	    return [template::util::richtext::set_property contents [lindex $values 0] $merge_text]
+            set richtext_value [lindex [template::data::transform::richtext element] 0]
+            return [list [template::util::richtext::set_property contents $richtext_value $merge_text]]
 	} 
     	set contents [template::util::richtext::get_property contents [lindex $values 0]]
     } else {