*! version 1.0.0  10may1999
program define hausfix, eclass
	version 6
	tempname b b1 V
	mat `b' = e(b)
	mat `V' = e(V)
	mat `b1' = `b'[1,1..1]
	local eq1 : coleq(`b1')
	mat `b1' = `b'[1,"`eq1':"]
	mat coleq `b1' = "_eq1"
	local dim1 = colsof(`b1')
	if `dim1' < colsof(`b') {
		mat `b' = (`b1',`b'[1,`dim1'+1...])
	}
	else	mat `b' = `b1'
	local names : colfullnames `b'
	mat colnames `V' = `names'
	mat rownames `V' = `names'
	est post `b' `V'
	est local cmd hausfix
end