forth fix project

minimize save procedure