失礼。(insert (pp ...))は(insert (pp-to-string ...))の間違いです。