Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v
diff -u -r1.34 -r1.34.6.1
--- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl	12 Jul 2009 01:08:23 -0000	1.34
+++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl	25 Aug 2013 20:00:12 -0000	1.34.6.1
@@ -518,7 +518,9 @@
                           -default 0]
     }
     
-    validate_integer num_days $num_days
+    if {![string is integer -strict $num_days]} {
+	error "num_days ($num_days) has to be an integer"
+    }
 
     if { $num_days > 0 } { 
         db_dml purge_jobs {}