http://cvs.openacs.org/cvs/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl?r1=1.162.2.3&r2=1.162.2.4
best regards -gustaf neumann