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 -N -r1.22.2.2 -r1.22.2.3
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	18 Sep 2015 07:31:48 -0000	1.22.2.2
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	2 Dec 2015 09:34:43 -0000	1.22.2.3
@@ -61,7 +61,8 @@
     # case 2, submission of the page showing errors: returns the corrected text.
     set merge_text [template::util::spellcheck::merge_text $element(id)]
 
-    if { [set richtext_p $element(datatype) eq "richtext"] } {
+    set richtext_p [expr {$element(datatype) eq "richtext"}]
+    if { $richtext_p } {
 	# special treatment for the "richtext" datatype.
     	set format [template::util::richtext::get_property format [lindex $values 0]]
 	if { $merge_text ne "" } {