diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index a7663819dad245be526a5275e23b0ed24dd92ff7..1bc08779cc65f777e25cc7d1f1307466e33eb751 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -1747,7 +1747,7 @@ linkBinary' staticLink dflags o_files dep_packages = do
          | osMachOTarget (platformOS platform) &&
            dynLibLoader dflags == SystemDependent &&
            WayDyn `elem` ways dflags &&
-           gopt Opt_RPath dflags
+           useXLinkerRPath dflags (platformOS platform)
             = let libpath = if gopt Opt_RelativeDynlibPaths dflags
                             then "@loader_path" </>
                                  (l `makeRelativeTo` full_output_fn)