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.12 -r1.13
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	21 Nov 2003 11:34:52 -0000	1.12
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	29 Jan 2004 14:38:29 -0000	1.13
@@ -59,7 +59,7 @@
 	# special treatment for the "richtext" datatype.
     	set format [template::util::richtext::get_property format [lindex $values 0]]
 	if { ![empty_string_p $merge_text] } {
-	    return [list [list $merge_text [ns_queryget $element(id).format]]]
+	    return [template::util::richtext::set_property contents [lindex $values 0] $merge_text]
 	} 
     	set contents [template::util::richtext::get_property contents [lindex $values 0]]
     } else {
@@ -70,7 +70,7 @@
     }
 
     if { [empty_string_p $contents] } {
-	return [list]
+	return $values
     } 
 
     set spellcheck_p [ad_decode [set language [ns_queryget $element(id).spellcheck]] ":nospell:" 0 1]
@@ -110,7 +110,7 @@
         
     # no spellchecking was to take place, or there were no errors.
     if { $richtext_p } {
-	return [list [list $contents $format]]
+	return [list [template::util::richtext::set_property contents [lindex $values 0] $contents]]
     } else {
 	return [list $contents]
     }