Mouseover & Dynamic в Mathematica

Может ли кто-нибудь указать, почему это не работает в Mathematica 8:

DynamicModule[{x = Pink},
 Row[
  {Style["Hello", x],
   Mouseover[
    x = Green; "World",
    x = Blue; "World"]}]]

Что я ожидаю, так это увидеть, как цвет "Hello" меняется, когда я навожу курсор мыши на "World". Что я получаю, так это розовое "Hello", которое никогда не меняет цвет.