Use format instead of prin1-to-string.