Copy of cvs UserCode/mschrode