small fix in shared.R