Minor bug fixed

Still need to look at disc.R