Index: openacs-4/packages/oct-election/www/vote-process.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oct-election/www/vote-process.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/oct-election/www/vote-process.tcl	7 Aug 2014 07:32:18 -0000	1.2
+++ openacs-4/packages/oct-election/www/vote-process.tcl	23 Jul 2018 13:22:17 -0000	1.3
@@ -33,7 +33,7 @@
     }
 
     set candidate_id [array nextelement q $searchId]
-    set votes [expr $votes + 1]
+    incr votes
 
     # TODO: verify that the candidate is actually in the election
     db_dml tally_vote {