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.12 -r1.13
--- openacs-4/packages/ams/tcl/ams-list-procs.tcl	13 Mar 2006 04:19:14 -0000	1.12
+++ openacs-4/packages/ams/tcl/ams-list-procs.tcl	16 May 2006 13:53:23 -0000	1.13
@@ -130,7 +130,7 @@
 
     @return 1 if the list exists for this object_type and package_key and 0 if the does not exist
 } {
-    set list_id [ams::list::get_list_id_not_cached -package_key $package_key -object_type $object_type -list_name $list_name]
+    set list_id [ams::list::get_list_id -package_key $package_key -object_type $object_type -list_name $list_name]
     if { [exists_and_not_null list_id] } {
         return 1
     } else {