Index: openacs-4/packages/acs-admin/www/apm/parameter-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-add.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/apm/parameter-add.tcl	25 Sep 2007 15:22:33 -0000	1.6
+++ openacs-4/packages/acs-admin/www/apm/parameter-add.tcl	23 Jan 2009 08:29:38 -0000	1.7
@@ -10,10 +10,11 @@
 
 set user_id [ad_get_user_id]
 
+set parameter_id [db_nextval acs_object_id_seq]
 db_1row apm_get_name { 
-    select package_key, pretty_name, version_name, acs_object_id_seq.nextval as parameter_id
-      from apm_package_version_info
-     where version_id = :version_id
+  select package_key, pretty_name, version_name
+  from apm_package_version_info
+  where version_id = :version_id
 }
 db_release_unused_handles