Index: openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl	29 Sep 2013 13:49:46 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/users-bulk-approve.tcl	1 Nov 2013 21:08:34 -0000	1.5
@@ -29,8 +29,8 @@
 
 set pending_user_count [db_string count_pending_users {}]
 
-set hours [expr int($pending_user_count / 120)]
-set minutes [expr int($pending_user_count / 2) % 60]
+set hours [expr {int($pending_user_count / 120)}]
+set minutes [expr {int($pending_user_count / 2) % 60}]
 
 set browse_options [list [list "[_ dotlrn.Full_Access]" 1] [list "[_ dotlrn.Limited_Access]" 0]]
 set guest_options [list [list [_ dotlrn.No] f] [list [_ dotlrn.Yes] t]]
@@ -79,7 +79,7 @@
 	} else {
 
 	    # notify user of approval
-	    if [catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $email_from -subject $subject -body $message} errmsg] {
+	    if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $email_from -subject $subject -body $message} errmsg]} {
 	    
 		ns_log Error "Error sending email from users-bulk-approve" $errmsg
 		ns_write "Error sending mail<br>"