Na página 42, na função DIGRAPHsc (do Algoritmo de Kosaraju), existe a seguinte chamada:
dfsRsc(R, sopR[i], id++);
Pelo que entendi, ela deveria ser:dfsRsc(G, sopR[i], id++);
Uma alternativa seria trocar a chamada a dfsRsc na página 41 para usar o digrafo original G. Pelos meus testes, isso só mudou os números dados a cada componente fortemente conexo (e continuou identificando-os corretamente).