Possibility of extending proc. Use : ::tools::extend <proc> { <body> }

Backport from Eric-CG