Update retrieve.rcm.R

bugfix