Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.76 -r1.77
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	27 Apr 2015 15:28:18 -0000	1.76
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	27 Jun 2015 17:32:40 -0000	1.77
@@ -912,6 +912,9 @@
         if { $token_id eq "" } {
             ns_log Debug "__ad_verify_signature: Neither secret, nor token_id supplied"
             return 0
+        } elseif {![string is integer -strict $token_id]} {
+            ns_log Warning "__ad_verify_signature: token_id <$token_id> is not an integer"
+            return 0
         }
         set secret_token [sec_get_token $token_id]