*! By Sergiy Radyakin, 2013
*! Fixes problem of -if- modifier [suspected] not working in public (SJ) version of -sroot-.
** See http://www.stata.com/statalist/archive/2013-11/msg00366.html

program define srootfix
   version 9.2
   syntax varname(ts) [if] [in] ,[*]
   preserve
   marksample touse
   keep if `touse'
   sroot `varlist' , `options'
end

** end of file **