Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -r1.42.8.4 -r1.42.8.5
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	18 Aug 2014 09:23:46 -0000	1.42.8.4
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	15 Feb 2015 23:44:11 -0000	1.42.8.5
@@ -221,13 +221,13 @@
                 array set elm_msgs $user_info(element_messages)
 
                 if { [aa_true "element_message(email) exists" \
-			  [expr {[info exists elm_msgs(email)] && $elm_msgs(email) ne ""}]
+			  [expr {[info exists elm_msgs(email)] && $elm_msgs(email) ne ""}] ]} {
                     aa_log "element_message(email) = $elm_msgs(email)"
                 }
-                if { [aa_true "element_message(first_names) exists" [info exists elm_msgs(first_names)]
+                if { [aa_true "element_message(first_names) exists" [info exists elm_msgs(first_names)] ]} {
                     aa_log "element_message(first_names) = $elm_msgs(first_names)"
                 }
-                if { [aa_true "element_message(last_name) exists" [info exists elm_msgs(last_name)]
+                if { [aa_true "element_message(last_name) exists" [info exists elm_msgs(last_name)] ]} {
                     aa_log "element_message(last_name) = $elm_msgs(last_name)"
                 }
             }