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 -N -r1.57.2.4 -r1.57.2.5
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	15 Mar 2016 10:27:22 -0000	1.57.2.4
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	23 May 2016 16:39:57 -0000	1.57.2.5
@@ -189,6 +189,12 @@
     foreach o [my children] { $o render }
   }
 
+  ::xo::tdom::Object instproc CSRFToken {} {
+    if {[info exists ::__csrf_token]} {
+      ::html::input -type hidden -name __csrf_token -value [set ::__csrf_token] {}
+    }
+  }
+
 }