Index: openacs-4/packages/acs-tcl/tcl/security-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-init.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/security-init.tcl	23 Dec 2008 12:23:00 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/security-init.tcl	7 Aug 2017 23:47:59 -0000	1.6
@@ -14,14 +14,14 @@
 ad_schedule_proc -thread f [parameter::get -parameter SessionSweepInterval -default 7200] sec_sweep_sessions
 
 # Verify that the secret_tokens table is populated
-set secret_tokens_exists [db_string secret_tokens_exists "select decode(count(*),0,0,1) from secret_tokens"]
+set secret_tokens_exists [db_string secret_tokens_exists {select decode(count(*),0,0,1) from secret_tokens}]
 
 if { $secret_tokens_exists == 0 } {
     populate_secret_tokens_db
 }
 
 ns_log Notice "security-init.tcl: Creating secret_tokens ns_cache..."
-ns_cache create secret_tokens -size 32768
+ns_cache create secret_tokens -size 65536
 ns_log Notice "security-init.tcl: Populating secret_tokens ns_cache..."
 populate_secret_tokens_cache
 
@@ -39,3 +39,13 @@
     return \"[parameter::get -package_id [ad_acs_kernel_id] -parameter LoginTimeout -default 28800]\"
 "
 
+#
+# If there is a re-init, make sure the global handler-variables are reset
+#
+sec_handler_reset
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: