--- a/hedgewars/uAmmos.pas	Tue Feb 05 17:53:38 2008 +0000
+++ b/hedgewars/uAmmos.pas	Tue Feb 05 18:25:46 2008 +0000
@@ -217,7 +217,7 @@
 
 procedure SetWeapon(weap: TAmmoType);
 begin
-ParseCommand('/setweap ' + chr(ord('a') + byte(weap)), true)
+ParseCommand('/setweap ' + char(weap), true)
 end;
 
 end.