Index: openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl	26 Jun 2018 13:31:57 -0000	1.10
+++ openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl	27 Jun 2018 09:18:55 -0000	1.11
@@ -201,7 +201,7 @@
 	aa_log "$spellcheck(selected_option) is the default"
     }
 
-    # formwidget where spellcheck is enabled
+    # formwidgets where spellcheck is enabled
     array set widget_info [string trim [parameter::get_from_package_key \
                                             -package_key acs-templating \
                                             -parameter SpellcheckFormWidgets \
@@ -216,7 +216,7 @@
 
     array set spellcheck [{*}$command]
     aa_true "Spell-checking as configured in acs-templating.SpellcheckFormWidgets parameter" \
-        [expr {!($spellcheck(render_p) ^ $spellcheck_p)}]
+        {!($spellcheck(render_p) ^ $spellcheck_p)}
 
     if { $spellcheck(render_p) } {
 	aa_log "$spellcheck(selected_option) is the default"
@@ -232,7 +232,7 @@
 
     array set spellcheck [{*}$command]
     aa_true "Spell-checking as configured in acs-templating.SpellcheckFormWidgets parameter" \
-        [expr {!($spellcheck(render_p) ^ $spellcheck_p)}]
+        {!($spellcheck(render_p) ^ $spellcheck_p)}
 
     if { $spellcheck(render_p) } {
 	aa_log "$spellcheck(selected_option) is the default"