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.67.2.11 -r1.67.2.12
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	3 Dec 2014 16:23:10 -0000	1.67.2.11
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	10 Apr 2015 09:52:06 -0000	1.67.2.12
@@ -357,6 +357,9 @@
 } {
     is this a file storage object
 } {
+    if {![string is integer -strict $object_id]} {
+	return 0
+    }
     return [db_string select_object_p {}]
 }