Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.70 -r1.71
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	24 Jul 2018 17:18:29 -0000	1.70
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	25 Jul 2018 13:54:17 -0000	1.71
@@ -1303,9 +1303,9 @@
     } {
         set result [string match *$string* [dict get $dict body]]
         if {$result} {
-            aa_true "${prefix} Reply contains $string (<a href='[detail_link $dict]'>Details</a>)" $result            
-        } else {
             aa_true "${prefix} Reply contains $string" $result
+        } else {
+            aa_true "${prefix} Reply contains $string (<a href='[detail_link $dict]'>Details</a>)" $result            
         }
         return $result
     }
@@ -1486,7 +1486,7 @@
         }
 
         dict set user_info password $password
-        dict set $user_info email $email
+        dict set user_info email $email
 
         aa_log "Created user with email='$email' and password='$password'"