program define labnoeq
*! NJC 1.0.1 10 July 2001
	version 7
	syntax varlist

	foreach var of local varlist {
		local label : variable label `var'
		local pos = index(`"`label'"',"==")
		if `pos' {
			local label = substr(`"`label'"',`pos' + 2,.)
			label variable `var' `"`label'"'
		}
	}
end