Index: openacs-4/packages/ams/tcl/ams-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-list-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/ams/tcl/ams-list-procs.tcl	20 Feb 2006 10:43:52 -0000	1.10
+++ openacs-4/packages/ams/tcl/ams-list-procs.tcl	23 Feb 2006 23:39:51 -0000	1.11
@@ -212,7 +212,7 @@
         # it does not exists a blank value
         # is not saved for the list we are
         # creating here
-	set existing_list_id_not_cached [ams::list::get_list_id -package_key $package_id -object_type $object_type -list_name $list_name]
+	set existing_list_id_not_cached [ams::list::get_list_id -package_key $package_key -object_type $object_type -list_name $list_name]
     } 	
     
     if {[exists_and_not_null existing_list_id]} {