LogLogPlot[{Internal`Log1p[x], Log[1 + x]}, {x, 1*^-17, 1*^-14}]

[![enter image description here][1]][1]

ps：Of course,maybe you need ``Internal`Expm1``,too.

  [1]: https://i.sstatic.net/mWoDa.png