Do a little better here, including using id->contract-src-info instead of just the identifier.
Do a little better here, including using id->contract-src-info instead of
just the identifier.

svn: r13631

mafagafogigante/racket,mafagafogigante/racket,mafagafogigante/racket,mafagafogigante/racket,mafagafogigante/racket,mafagafogigante/racket,mafagafogigante/racket,mafagafogigante/racket,mafagafogigante/racket