* restore all S_E_X macros from SE_X, updating relevant statistics  
program define lin_m6r, eclass
   local nc `1'         /* number of independent constraints */
   local x2 `2'         /* Wald-statistic for constraints */ 
   local cmd `3'	/* command name */
      
   est local title  "$SE_ttl (constrained)"  
   est local depvar $SE_depv
   est scalar N = $SE_nobs
   
   * approximate the new ll by ll+x2, and adapt degrees of freedom (!)
   
   if "$SE_chi2" ~= "" { est scalar chi2 = $SE_chi2 - `x2' }
   if "$SE_mdf"  ~= "" { est scalar df_m  = $SE_mdf  - `nc' }
   if "$SE_tdf"  ~= "" { est scalar df_r  = $SE_tdf  + `nc' }            
   if "$SE_ll"   ~= "" { est scalar ll   = $SE_ll   - 0.5*`x2' }            
   est scalar ll0 = $SE_ll0
   if "$SE_pr2" ~= ""  { 
      capt est scalar p  = 1 - $S_E_ll / $S_E_l0
   }           
   
   est local cmd `cmd'
   
end