Index: openacs-4/packages/file-storage/www/folder-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-create.tcl,v
diff -u -r1.10.2.2 -r1.10.2.3
--- openacs-4/packages/file-storage/www/folder-create.tcl	31 May 2016 12:15:51 -0000	1.10.2.2
+++ openacs-4/packages/file-storage/www/folder-create.tcl	4 Jun 2016 11:07:22 -0000	1.10.2.3
@@ -37,17 +37,22 @@
 }
 
 if {![ad_form_new_p -key folder_id]} {
-    #editing an existing folder
+    #
+    # editing an existing folder
+    #
     permission::require_permission \
 	    -object_id $folder_id \
 	    -party_id $user_id \
 	    -privilege "write"
     set context [fs_context_bar_list -final "[_ file-storage.Edit_Folder]" $folder_id]
 } elseif {[info exists parent_id]} {
-    #adding a new folder
+    #
+    # adding a new folder
+    #
     set context [fs_context_bar_list -final "[_ file-storage.Create_New_Folder]" $parent_id]
 } else {
-    set context ""
+    ad_return_complaint 1 "invalid parent_id"
+    ad_script_abort
 }
 
 ad_form -name "folder-ae" -html { enctype multipart/form-data } -export { parent_id } -form {