Choppy Teleportation

I was trying something out, it was a quartz type square, with the middle filled in. It teleports you 4 blocks to the side when you reach a certain point, to make the illusion that something changed. Though, the problem is when I teleport, for a split second it spazzes in a way. Its very choppy and such. The command I was using was

 execute @a[x=(),y=(),z=(),r=1(and tested on 0)] tp @a ~ ~ ~4

. Though, it seems to be on every command, just choppy on regular.
Thanks.