Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	22 Sep 2001 05:40:13 -0000	1.3
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	18 Dec 2001 20:57:26 -0000	1.4
@@ -73,7 +73,7 @@
     if {[string equal [db_string object_type "
     select object_type 
     from   acs_objects
-    where  object_id = :file_id" -default ""] "file_storage_item"]} {
+    where  object_id = :file_id" -default ""] "content_item"]} {
 	return 1
     } else {
 	return 0
@@ -89,7 +89,7 @@
     if {[string equal [db_string object_type "
     select object_type 
     from   acs_objects
-    where  object_id = :version_id" -default ""] "content_revision"]} {
+    where  object_id = :version_id" -default ""] "file_storage_object"]} {
 	return 1
     } else {
 	return 0