Index: openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	15 Dec 2006 00:01:54 -0000	1.5
+++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	21 Jan 2008 16:42:56 -0000	1.6
@@ -71,6 +71,7 @@
                 where email = :email
             }]
             aa_equals "New user occurs only once in registered_users" $registered_users_count 1
+            acs_user::delete -user_id $creation_info(user_id)
         }
 }