- (let ((exe (os-get-runtime-executable-path)))
- (setf *runtime-pathname* (when exe (native-pathname exe))))
+ (let ((exe (os-get-runtime-executable-path t))
+ (saved (sb!alien:cast *native-saved-runtime-path* sb!alien:c-string)))
+ (setf *runtime-pathname*
+ (when (or exe saved) (native-pathname (or exe saved)))))