R lines() command shows crossed lines

Question

When I add lines() to hist() I get unexplainable crossed lines, could you tell me why? Please

x <- 
  rgamma(100, shape = 1, rate = 2