Index: openacs-4/packages/file-storage/tcl/file-storage-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql	22 May 2002 16:42:31 -0000	1.8
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql	22 May 2002 17:01:56 -0000	1.9
@@ -43,6 +43,16 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="fs::object_p.select_object_p">
+        <querytext>
+            select count(*)
+            from dual
+            where exists (select 1
+                          from fs_objects
+                          where object_id = :object_id)
+        </querytext>
+    </fullquery>
+
     <fullquery name="fs::get_object_name.select_object_name">
         <querytext>
             select name