Problem trying to change SmallInt < SmallInt primitive

[Paul Dufresne]

I have tried to change the Slate version of primitive33 in
src/mobius/vm/ext/prims.slate to:
===
x at SmallIntegerTraits < y at SmallIntegerTraits
[
  interpreter stackPush:
    [| a!LongInt b!LongInt |
    a: x asSmallInt.
    b: y asSmallInt.
    ( x < y
      ifTrue: [CurrentMemory TrueObject]
      ifFalse: [CurrentMemory FalseObject])] do.
] `pidginPrimitive.
===
but got:
===
Generating load of interpreter
Generating argument
Casting
Generating message do

Checking infixes
Checking prefixes
Checking accessors
Searching for function do
The following condition was signaled:
Error: A method translation wasn't found for do.

The following restarts are available:
0)      Inspect a stack frame
1)      Abort evaluation of expression
2)      Quit Slate
===

Am I trying too much for a primitive, I means evaluating a block?

--Paul

_________________________________________________________________
Gardez le contrôle grâce à la protection contre les fenêtres pop-up 
articulée sur la technologie brevetée Microsoft SmartScreen 
http://join.msn.com/?pgmarket=fr-ca&page=features/popup Commencez dès 
maintenant à profiter de tous les avantages de MSN Premium et obtenez les 
deux premiers mois GRATUITS*.