Index: openacs-4/packages/acs-tcl/tcl/object-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/object-procs.xql	1 Nov 2006 19:25:19 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/object-procs.xql	29 Jan 2007 12:25:38 -0000	1.6
@@ -35,11 +35,11 @@
       </querytext>
 </fullquery>
 
-<fullquery name="acs_object::package_id.get_package_id">
+<fullquery name="acs_object::object_p.object_exists">
   <querytext>
-    select package_id
+    select 1
       from acs_objects
-      where object_id = :object_id
+      where object_id = :id
    </querytext>
 </fullquery>