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.42.2.1 -r1.42.2.2
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	23 Apr 2004 00:24:57 -0000	1.42.2.1
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	25 Apr 2004 18:16:08 -0000	1.42.2.2
@@ -764,9 +764,11 @@
     }
 
     if {[string equal "t" [oacs_dav::folder_enabled -folder_id $root_folder_id]]} {
-    
-	set url_stub [item::get_url -root_folder_id $root_folder_id $item_id]
-
+	if {[string equal $root_folder_id $item_id]} {
+	    set url_stub ""
+	} else {
+	    set url_stub [item::get_url -root_folder_id $root_folder_id $item_id]
+	}
 	set package_url [apm_package_url_from_id $package_id]
 
 	set webdav_prefix [oacs_dav::uri_prefix]