http://cvs.openacs.org/cvs/openacs-4/packages/acs-tcl/tcl/security-procs.tcl?r1=1.58&r2=1.59
cheers,
Torben