The "strip" procedure is affected by a little bug
during deletion of control-codes.
That procedure uses the function [ string is graph
$char ] which, during deletion of control-codes \003,
doesn't delete the relative numeric codes.
You'd better add the following instruction as first
line of the procedure:
regsub -all --
$args "" args
which provides the right control-codes deleting.
Sorry for my bad school english :D