entitypickmode problem

For instance:

Graphics3D 800, 600, 32, 2
Cam = CreateCamera()
PositionEntity Cam, 0,0,0

textu = CreateTexture(80, 15)
SetBuffer TextureBuffer(Textu)
Cls
Text 1,1, " no"
SetBuffer BackBuffer()
Spt = CreateSprite()
EntityTexture Spt, Textu
ScaleSprite spt, 0.5, 0.1
PositionEntity spt, 0,0, 2

EntityPickMode Spt, 1
EntityRadius spt, 0.13, 0.9

While Not KeyHit(1)
e=CameraPick(Cam, MouseX(),MouseY())
If e<>Entity
entity=e
Else
entity = 0
EndIf
RenderWorld()
Text 1,1, entity
Flip
Wend

ClearWorld()
EndGraphics()

(Test it, You'll see that it works.....but the area works as if it wasn't scaled... then try it with entityradius)