Index: openacs-4/packages/attachments/tcl/attachments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/attachments-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl	26 Jul 2002 23:53:35 -0000	1.5
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl	27 Jul 2002 00:01:25 -0000	1.6
@@ -147,8 +147,12 @@
 
         set cbar_list [fs_context_bar_list -extra_vars $extra_vars -folder_url "attach" -file_url "attach" -root_folder_id $root_folder_id -final $final $folder_id]
 
-        set cbar_html "<a href=\"attach?${extra_vars}&folder_id=$root_folder_id\">Top</a> &gt; "
-        
+        if {![empty_string_p $root_folder_id]} {
+            set cbar_html "<a href=\"attach?${extra_vars}&folder_id=$root_folder_id\">Top</a> &gt; "
+        } else {
+            set cbar_html "Top &gt; "
+        }
+
         foreach el $cbar_list {
             if {[llength $el] < 2} {
                 append cbar_html "$el"