Copied from svn.plone.org branch toutpt - View it on GitHub