Index: openacs-4/packages/acs-admin/www/apm/package-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-add.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-admin/www/apm/package-add.tcl	7 Aug 2017 23:47:45 -0000	1.14
+++ openacs-4/packages/acs-admin/www/apm/package-add.tcl	30 May 2018 15:53:54 -0000	1.15
@@ -7,11 +7,10 @@
 }
 
 set user_id [ad_conn user_id]
+set user [acs_user::get -user_id $user_id]
+set user_name [dict get $user name]
+set email     [dict get $user email]
 
-db_1row apm_get_name { 
-    select first_names || ' ' || last_name user_name, email from cc_users where user_id = :user_id
-}
-
 set package_id [db_nextval acs_object_id_seq]
 set version_id [db_nextval acs_object_id_seq]