--- a/hedgewars/GSHandlers.inc	Tue Jun 30 17:02:41 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Wed Jul 01 22:50:27 2009 +0000
@@ -1495,7 +1495,7 @@
 	inc(Gear^.Pos);
 	if Gear^.Pos = 11 then
 		Gear^.doStep:= @doStepTeleportAfter
-	end
+	end;
 end;
 
 procedure doStepTeleport(Gear: PGear);
@@ -1524,7 +1524,9 @@
 		HHGear^.Y:= int2hwFloat(TargetPoint.Y);
 		HHGear^.State:= HHGear^.State or gstMoving
 		end;
-TargetPoint.X:= NoPointX
+TargetPoint.X:= NoPointX;
+playSound(sndWarp, false, nil);
+
 end;
 
 ////////////////////////////////////////////////////////////////////////////////