modify according to R-ext