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.3 -r1.4
--- openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl	9 Oct 2003 13:22:32 -0000	1.3
+++ openacs-4/packages/acs-templating/tcl/test/spell-checker-procs.tcl	3 Nov 2003 12:32:38 -0000	1.4
@@ -147,7 +147,7 @@
 
 aa_register_case spellcheck__spellcheck_properties {
     Test the proc that knows if spell-checking is activated, if it should be performed,
-    and whether the radio buttons should default to "Yes" or "No".
+    and which value the pull-down menu should default to.
 } {    
     array set element {
 	id test_element
@@ -160,9 +160,9 @@
     aa_log "--- Spell-checking enabled on widget \"$element(widget)\"? --- $command"
 
     array set spellcheck [eval $command]
-    aa_false "Spell-checking disabled" $spellcheck(perform_p)
+    aa_false "Spell-checking disabled" $spellcheck(render_p)
 
-    if { $spellcheck(perform_p) } {
+    if { $spellcheck(render_p) } {
 	aa_log "$spellcheck(selected_option) is the default"
     }
     
@@ -172,9 +172,9 @@
     aa_log "--- Spell-checking enabled on widget \"$element(widget)\"? --- $command"
 
     array set spellcheck [eval $command]
-    aa_true "Spell-checking enabled" $spellcheck(perform_p)
+    aa_true "Spell-checking enabled" $spellcheck(render_p)
     
-    if { $spellcheck(perform_p) } {
+    if { $spellcheck(render_p) } {
 	aa_log "$spellcheck(selected_option) is the default"
     }
 
@@ -184,10 +184,10 @@
     aa_log "--- Spell-checking enabled on widget \"$element(widget)\"? --- $command"
 
     array set spellcheck [eval $command]
-    aa_true "Spell-checking enabled" $spellcheck(perform_p)
+    aa_true "Spell-checking enabled" $spellcheck(render_p)
 
-    if { $spellcheck(perform_p) } {
+    if { $spellcheck(render_p) } {
 	aa_log "$spellcheck(selected_option) is the default"
     }
     
-}
\ No newline at end of file
+}