Fix SubProgam idents