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.23 -r1.24
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	7 Aug 2017 23:48:02 -0000	1.23
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	5 Dec 2017 15:37:18 -0000	1.24
@@ -383,28 +383,26 @@
 
 	    set spellcheck_p 0
 	} else {
-
-
 	    array set widget_info [string trim [parameter::get_from_package_key \
 						    -package_key acs-templating \
 						    -parameter SpellcheckFormWidgets \
 						    -default ""]]
-	    
+            
 	    set spellcheck_p [expr {[array size widget_info] 
 				    && ($element(widget) eq "richtext" || 
 					$element(widget) eq "textarea" || 
 					$element(widget) eq "text") 
-				    && $element(widget) in [array names widget_info]}]
-	    
+				    && [info exists widget_info($element(widget))]
+                                    && [set widget_info($element(widget))]
+                                }]
 	}
 	
 	if { $spellcheck_p } {
 	    # This is not a submit; we are rendering the form element for the first time and
 	    # since the spellcheck "sub widget" is to be displayed we'll also want to know
 	    # which option should be selected by default.
 
-	    set spellcheck(render_p) 1
-	    set spellcheck(perform_p) 1
+	    array set spellcheck {render_p 1 perform_p 1}
 
 	    if { $widget_info(${element(widget)}) } {
 		set spellcheck(selected_option) [nsv_get spellchecker default_lang]
@@ -414,8 +412,7 @@
 
 	} else {
 
-	    set spellcheck(render_p) 0
-	    set spellcheck(perform_p) 0
+	    array set spellcheck {render_p 0 perform_p 0}
 
 	    # set this to something so the script won't choke.
 	    set spellcheck(selected_option) ":nospell:"