\definecharacterkerning[packed]
 
\setupcharacterkerning[packed][factor=-.125]
 
\starttext
 
\input knuth
 
\start
 
\setcharacterkerning[packed]
 
\input knuth
 
\stop
 
\stoptext