Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	26 Feb 2005 17:52:20 -0000	1.32
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	1 Mar 2005 00:01:25 -0000	1.33
@@ -195,7 +195,7 @@
     # the database.
 
     set creation_ip [ad_conn peeraddr]
-    set user_id     [ad_verify_and_get_user_id]
+    set user_id     [ad_conn user_id]
     set name        "tarball-for-package-version-${version_id}"
     set title       "${package_key}-tarball"