Case class apply and copy don't abide by qualified private constructor

[Jasper-M]

scala> object bar { case class Foo private[bar] (a: Int) }
// defined object bar

scala> bar.Foo(3).copy(4)                                                       
val res4: bar.Foo = Foo(4)