Как определить произвольное дискретное распределение вероятностей со списком масс без предупреждений

В системе Mathematica 8 я хочу определить дискретное распределение с плотностью массы, заданной в виде списка. Например,

In[1] f = ProbabilityDistribution[{2/3, 1/3}[[x]], {x, 1, 2, 1}];

Кажется, это работает. Однако это выдало дважды повторяющееся предупреждение:

"Part::pspec: Part specification x is neither an integer nor a list of integers." 

Тем не менее, похоже, что f работает правильно. Это сообщение натолкнуло меня на мысль, что может быть лучший способ определить такое же распределение. Как я могу определить дискретное распределение с помощью списка, не вызывая предупреждения?