Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -N -r1.239.2.16 -r1.239.2.17
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	2 Sep 2014 18:49:52 -0000	1.239.2.16
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Sep 2014 14:45:40 -0000	1.239.2.17
@@ -2664,7 +2664,21 @@
   }
 
 
+  ###########################################################
+  #
+  # ::xowiki::formfield::security_policy
+  #
+  ###########################################################
 
+  Class create security_policy -superclass select
+  security_policy instproc initialize {} {
+    foreach p [lsort [::xowiki::Policy info instances]] {
+      lappend options [list $p $p]
+    }
+    my options $options
+    next
+  }
+
   ###########################################################
   #
   # ::xowiki::formfield::DD