Index: openacs-4/packages/dotlrn-ecommerce/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/user-info.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn-ecommerce/lib/user-info.tcl	12 Aug 2018 12:18:04 -0000	1.13
+++ openacs-4/packages/dotlrn-ecommerce/lib/user-info.tcl	20 Nov 2019 14:06:41 -0000	1.14
@@ -51,7 +51,7 @@
 set edit_mode_p [expr ![empty_string_p [form::get_action user_info]]]
 
 set form_mode display
-if { [exists_and_equal edit_p 1] } {
+if {[info exists edit_p] && $edit_p == 1} {
     set form_mode edit
 }
 
@@ -184,7 +184,7 @@
     }
 }
     
-if { [exists_and_equal edit_p 1] } {
+if {[info exists edit_p] && $edit_p == 1} {
     ad_form -extend -name user_info -form {
 	{add:text(submit) {label "[_ dotlrn-ecommerce.Proceed]"}}
 	{cancel:text(submit) {label "[_ dotlrn-ecommerce.Cancel]"}}