Index: openacs-4/packages/acs-admin/www/users/merge-final.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/merge-final.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-admin/www/users/merge-final.tcl	8 Jun 2005 11:48:22 -0000	1.1.2.3
+++ openacs-4/packages/acs-admin/www/users/merge-final.tcl	8 Jun 2005 21:48:56 -0000	1.1.2.4
@@ -39,6 +39,8 @@
 	append results "<li>$res</li>"
     }
 
+    merge::MergeUserInfo -from_user_id $from_user_id -to_user_id $to_user_id
+
     set impl_id [auth::authority::get_element -authority_id $to_authority_id -element "auth_impl_id"]
     set parameters [list $from_user_id $to_user_id $to_authority_id]
     set user_res [acs_sc::invoke \