I see that now.
Here is the cleaned up code that should work:
Show[Plot[
QuantityMagnitude@PDF[dist, Quantity[x, "Feet"]], {x, 58, 88},
Filling -> Bottom, PlotRange -> {{0, 140}, {0, Automatic}},
PlotStyle -> Gray, Frame -> {True, True, False, False},
PlotLabel -> "Predictive distribution for 23 mi/h",
PlotLegends -> SwatchLegend[{"68% probability interval"}],
FrameLabel -> {"distance (ft)", "probablity density"},
ImageSize -> 360],
Plot[QuantityMagnitude@PDF[dist, Quantity[x, "Feet"]], {x, 0, 140},
PlotLegends -> {"probability density"}, Filling -> Bottom,
PlotRange -> {0, Automatic}]]