Index: openacs-4/packages/attachments/www/attach.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/attach.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/attachments/www/attach.tcl	2 Jul 2002 19:41:20 -0000	1.2
+++ openacs-4/packages/attachments/www/attach.tcl	9 Jul 2002 19:49:33 -0000	1.3
@@ -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