st: converting variable labels to proper case with apostrophes

["Dimitriy V. Masterov" <dvmaster@gmail.com>]

I am trying to convert my variable labels to proper case, so that
instead of "government office region" I have "Government Office
Region". I used this code:
	foreach var of varlist _all {;
		set trace on;
		lab var `var' "`=proper("`:var label `var''")'";
	};

but it runs into problem when there are apostrophes in the label. I
checked out the labutils suite, but I don't think there's a solution
there.

Any suggestions?

Dimitriy Masterov
*
*   For searches and help try:
*   http://www.stata.com/support/faqs/res/findit.html
*   http://www.stata.com/support/statalist/faq
*   http://www.ats.ucla.edu/stat/stata/