Index: openacs-4/packages/rss-support/www/subscr-ae-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/subscr-ae-2.tcl,v
diff -u -r1.4 -r1.4.20.1
--- openacs-4/packages/rss-support/www/subscr-ae-2.tcl	17 May 2003 11:23:29 -0000	1.4
+++ openacs-4/packages/rss-support/www/subscr-ae-2.tcl	27 Aug 2013 11:25:28 -0000	1.4.20.1
@@ -11,16 +11,16 @@
 }
 
 switch $timeout_units {
-    m { set timeout [expr $timeout * 60] }
-    h { set timeout [expr $timeout * 3600] }
-    d { set timeout [expr $timeout * 86400] }
+    m { set timeout [expr {$timeout * 60}] }
+    h { set timeout [expr {$timeout * 3600}] }
+    d { set timeout [expr {$timeout * 86400}] }
 }
 
-if [db_0or1row subscr_exists_p {
+if {[db_0or1row subscr_exists_p {
     select 1
     from acs_objects
     where object_id = :subscr_id
-}] {
+}]} {
     # Subscription exists
     ad_require_permission $subscr_id admin
     db_dml update_subscr {}