dosage = RandomVariate[NormalDistribution[0.004, 0.001], 1*^3];
Histogram[dosage, PlotTheme -> "Detailed", AspectRatio -> 1/4]
(*Works Fine*)
Histogram[dosage, PlotTheme -> "Detailed", AspectRatio -> 1/4,
BarOrigin -> Top]
(*The kernel Local has quit (exited) during the course of an evaluation.*)