Fix big in routines shrtoc and shctor