Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.48 -r1.49
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	18 Apr 2018 20:58:59 -0000	1.48
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	26 Jun 2018 12:09:00 -0000	1.49
@@ -1113,7 +1113,7 @@
     @author Malte Sussdorff
 } {
     # Retrieve a registered user
-    set user_id [db_string get_registered_id "select max(user_id) from registered_users"]
+    set user_id [db_string get_registered_id {select max(user_id) from registered_users}]
 
     # Check if the registered_user_p procedure finds him
     set is_registered_p [acs_user::registered_user_p -user_id $user_id]
@@ -1122,11 +1122,7 @@
     acs_user::ban -user_id $user_id
     set is_not_registered_p [acs_user::registered_user_p -user_id $user_id]
 
-    if {$is_registered_p eq 1 && $is_not_registered_p eq 0} {
-	set works_p 1
-    } else {
-	set works_p 0
-    }
+    set works_p [expr {$is_registered_p && !$is_not_registered_p}]
 
     acs_user::approve -user_id $user_id
     aa_true "registered_user_p works correct" $works_p