Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.109.2.10 -r1.109.2.11
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	13 Jun 2016 17:15:04 -0000	1.109.2.10
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	12 Sep 2016 11:10:05 -0000	1.109.2.11
@@ -1111,7 +1111,7 @@
 
     # Obtain the portion of the email address before the at sign. We'll use this in the name of
     # the backup directory for the package.
-    regsub {@.+} [cc_email_from_party [ad_conn user_id]] "" my_email_name
+    regsub {@.+} [party::email -party_id [ad_conn user_id]] "" my_email_name
 
     set backup_dir "[apm_workspace_dir]/$package_key-removed-$my_email_name-[ns_fmttime [ns_time] {%Y%m%d-%H:%M:%S}]"