Just read my post, it has an error in the very first macro :-(.
\def\adjustCmrTenForPplr#1=#2 {
\setbox0=\hbox{\char#1}\count0=\wd0
\setbox1=\hbox{{\palatinofont \char#1}}\count1=\wd1
\multiply\count0 by200
^^^ replace 200 by #2
\divide\count0 by\count1
\char#1=\the\count0\par}