Fix **racketmodname.

The case where (car a) is a string wasn't handled correctly. The error was provoked by sicp-manual.scrbl.