Index: openacs.org-dev/packages/attachments/www/attach.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/attachments/www/attach.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/attachments/www/attach.tcl	9 Jul 2002 17:35:01 -0000	1.1.1.1
+++ openacs.org-dev/packages/attachments/www/attach.tcl	25 Jul 2002 18:46:57 -0000	1.1.1.2
@@ -24,10 +24,15 @@
 }
 
 # Load up file storage information
-
 set root_folder_id [attachments::get_root_folder]
 if {[empty_string_p $folder_id]} {
     set folder_id $root_folder_id
+} 
+
+# sanity check
+if {[empty_string_p $folder_id]} {
+    ad_return_complaint 1 "Error: empty folder_id!"
+    ad_script_abort
 }
 
 # Check permission