Index: openacs-4/packages/download/www/admin/spam-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/spam-users.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/download/www/admin/spam-users.tcl	12 Sep 2013 10:26:13 -0000	1.6
+++ openacs-4/packages/download/www/admin/spam-users.tcl	30 Sep 2013 11:05:50 -0000	1.7
@@ -24,7 +24,7 @@
 db_multirow users user_select { *SQL* } {
     lappend want_spam_list $user_id
 }
-set no_spam_count [expr [llength user_id_list] - [llength want_spam_list]]
+set no_spam_count [expr {[llength user_id_list] - [llength want_spam_list]}]
 set user_id_list $want_spam_list
 
 set user_id_list_export [export_vars -form -sign {user_id_list}]