Update util.R

modified to not reject bcsft