}
% Define a \strikethrough command. For some reason, this does blue
-strikethrough, sometime that still needs fixing.
+% strikethrough, sometime that still needs fixing.
\definetextbackground
[strikethrough]
[location=text,
background=,
frame=off]
+\def\setwidthof#1\to#2%
+{\bgroup
+\setbox\scratchbox\hbox{#1}%
+\expanded{\egroup\def\noexpand#2{\the\wd\scratchbox}}}