modified tclindex