Index: openacs-4/packages/categories/tcl/tagcloud-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/tagcloud-procs.tcl,v
diff -u -r1.4.4.1 -r1.4.4.2
--- openacs-4/packages/categories/tcl/tagcloud-procs.tcl	3 Oct 2013 07:56:57 -0000	1.4.4.1
+++ openacs-4/packages/categories/tcl/tagcloud-procs.tcl	11 Oct 2013 12:08:21 -0000	1.4.4.2
@@ -20,7 +20,7 @@
     @author Matthew Burke (matt-oacs@bluedino.net)
 } {
     set max_weight 0
-    set min_weight [lindex [lindex $tag_list 0] 1]
+    set min_weight [lindex $tag_list 0 1]
     foreach tag $tag_list {
         set tag_weight [lindex $tag 1]
         if {$tag_weight < $min_weight} {