Index: openacs-4/packages/acs-subsite/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v
diff -u -r1.21 -r1.21.6.1
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	5 Jan 2010 11:09:26 -0000	1.21
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	27 Aug 2013 12:20:36 -0000	1.21.6.1
@@ -41,10 +41,10 @@
     set elm_mode($elm) {display}
 }
 
-set edit_mode_p [expr ![empty_string_p [form::get_action user_info]]]
+set edit_mode_p [expr {[form::get_action user_info] ne ""}]
 
 set form_mode display
-if { [exists_and_equal edit_p 1] } {
+if { [info exists edit_p] && $edit_p eq "1" } {
     set form_mode edit
 }