Make #'cl:translate-logical-pathname a bit less unsafe.