aprof.R changes