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.64 -r1.65
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Mar 2008 00:12:23 -0000	1.64
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	10 Jun 2008 22:07:28 -0000	1.65
@@ -1099,12 +1099,12 @@
 	}
     }
 
-    set version_name [get_object_name -object_id $folder_id]
-    db_exec_plsql delete_folder ""
-
     if {[empty_string_p $parent_id]} {
 	set parent_id [fs::get_parent -item_id $folder_id]
     }
+
+    set version_name [get_object_name -object_id $folder_id]
+    db_exec_plsql delete_folder ""
     
     fs::do_notifications -folder_id $parent_id -filename $version_name -item_id $folder_id -action "delete_folder"