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.68 -r1.69
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	27 Oct 2014 16:41:31 -0000	1.68
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	27 Apr 2015 15:28:20 -0000	1.69
@@ -311,8 +311,14 @@
 	}
     }
 
-    
-    set folder_id [content::folder::new -name $name -label $pretty_name -parent_id $parent_id -creation_user $creation_user -creation_ip $creation_ip -description $description -package_id $package_id]
+    set folder_id [content::folder::new \
+		       -name $name \
+		       -label $pretty_name \
+		       -parent_id $parent_id \
+		       -creation_user $creation_user \
+		       -creation_ip $creation_ip \
+		       -description $description \
+		       -package_id $package_id]
     permission::grant -party_id $creation_user -object_id $folder_id -privilege "admin"
 
     if {!$no_callback_p} {
@@ -351,6 +357,9 @@
 } {
     is this a file storage object
 } {
+    if {![string is integer -strict $object_id]} {
+	return 0
+    }
     return [db_string select_object_p {}]
 }