Modified a forgotten S <- NULL post-correction