Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.57.2.10 -r1.57.2.11
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	14 Oct 2016 18:58:53 -0000	1.57.2.10
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	6 Jan 2017 10:59:18 -0000	1.57.2.11
@@ -195,7 +195,7 @@
   namespace eval ::html {}
   proc ::html::CSRFToken {} {
     if {[info exists ::__csrf_token]} {
-      ::html::input -type hidden -name __csrf_token -value [set ::__csrf_token] {}
+      ::html::input -type hidden -name __csrf_token -value [::security::csrf::token] {}
     }
   }