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 -r1.5
--- openacs-4/packages/categories/tcl/tagcloud-procs.tcl	21 Dec 2008 18:05:35 -0000	1.4
+++ openacs-4/packages/categories/tcl/tagcloud-procs.tcl	27 Oct 2014 16:41:11 -0000	1.5
@@ -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} {
@@ -45,7 +45,7 @@
 } {
     set denominator [expr {[lindex $extremes 1] - [lindex $extremes 0]}]
     if {$denominator != 0} {
-        set multiplier [expr ($weight * 1.0)/$denominator]
+        set multiplier [expr {($weight * 1.0)/$denominator}]
     } else {
         set multiplier 0
     }