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.14 -r1.14.4.1
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl	16 Aug 2006 17:54:23 -0000	1.14
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl	16 May 2008 12:01:48 -0000	1.14.4.1
@@ -205,13 +205,15 @@
         } else {
             set cbar_html "[_ attachments.Top] > "
         }
-
+	set length_list [llength $cbar_list]
+	set aux 1
         foreach el $cbar_list {
-            if {[llength $el] < 2} {
+            if {$aux == $length_list } {
                 append cbar_html "$el"
             } else {
                 append cbar_html "<a href=\"[lindex $el 0]\">[lindex $el 1]</a> &gt; "
             }
+	    incr aux
         }
 
         return $cbar_html