bug fix into TabelaDisciplina.R