You can tune a data set to have the mean just above the median yet still have negative skew.
> X <- c(8.30, rep(8.4, 5), 8.41, 8.42, 8.49)
> X
[1] 8.30 8.40 8.40 8.40 8.40 8.40 8.41 8.42 8.49
> median(X)
[1] 8.4
> mean(X)
[1] 8.402222
> e1071::skewness(X)
[1] -0.3837484
I think judging skew from the shape of a histogram is hard to do accurately, so I do not put much weight on that.