Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/file-storage/www/index.tcl	24 Apr 2002 20:06:25 -0000	1.12
+++ openacs-4/packages/file-storage/www/index.tcl	2 May 2002 20:38:46 -0000	1.13
@@ -26,7 +26,10 @@
 }
 
 # Don't allow delete if root folder
-set nonroot_folder_p [expr $folder_id - [fs_get_root_folder]]
+set root_folder_p 0
+if {$folder_id == [fs_get_root_folder]} {
+    set root_folder_p 1
+}
 
 # check the user has permission to read this folder
 ad_require_permission $folder_id read