Index: openacs-4/packages/acs-templating/resources/forms/confirm-button.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/resources/forms/confirm-button.tcl,v
diff -u -N -r1.6 -r1.6.22.1
--- openacs-4/packages/acs-templating/resources/forms/confirm-button.tcl	9 Oct 2003 11:33:45 -0000	1.6
+++ openacs-4/packages/acs-templating/resources/forms/confirm-button.tcl	27 Aug 2013 11:33:14 -0000	1.6.22.1
@@ -14,13 +14,13 @@
 
 multirow create __form_contents__ __key__ __value__
 
-if { ![empty_string_p [set __form__ [ns_getform]]] } {
+if { [set __form__ [ns_getform]] ne "" } {
 
     set __form_size__ [ns_set size $__form__]
     set __form_counter__ 0
    
     while { $__form_counter__ < $__form_size__ } {
-        if { [string equal [ns_set key $__form__ $__form_counter__] __confirmed_p] } {
+        if { [ns_set key $__form__ $__form_counter__] eq "__confirmed_p" } {
             multirow append __form_contents__ __confirmed_p 1
         } else {