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.21 -r1.21.2.1
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	30 Mar 2013 19:07:24 -0000	1.21
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	27 Aug 2013 11:33:14 -0000	1.21.2.1
@@ -354,7 +354,7 @@
 } {
     upvar $element_ref element
     
-    if { [empty_string_p [set spellcheck_value [ns_queryget $element(id).spellcheck]]] } {
+    if { [set spellcheck_value [ns_queryget $element(id).spellcheck]] eq "" } {
 	
 	# The user hasn't been able to state whether (s)he wants spellchecking to be performed or not.
 	# That's either because spell-checking is disabled for this element, or we're not dealing with a submit.
@@ -364,7 +364,7 @@
 
 	if { [string equal "display" $element(mode)] \
 		 || [info exists element(nospell)] \
-		 || [empty_string_p [nsv_get spellchecker path]] } {
+		 || [nsv_get spellchecker path] eq "" } {
 
 	    set spellcheck_p 0
 	} else {