diff --git a/source/unit.ads b/source/unit.ads
index 17e6844..243a479 100644
--- a/source/unit.ads
+++ b/source/unit.ads
@@ -25,7 +25,7 @@ package unit is
 		kind       :        faction.enumeration   := faction.neutral;
 		limit      :        natural               := 0;
 		attributes :        attribute.bonus       := (others => 0);
-		hire_fee   :        natural               := 0;
+		hiring_fee :        natural               := 0;
 		weekly_fee :        natural               := 0;
 		battle_fee :        natural               := 0;
 		equipments :        equipment.equip_array := equipment.default;
diff --git a/source/world.adb b/source/world.adb
index 0d45ac4..50a0d7e 100644
--- a/source/world.adb
+++ b/source/world.adb
@@ -2,7 +2,7 @@
 --
 -- GNU General Public Licence (version 3 or later)
 
-with core, ui, attribute, skill, resource, equipment, unit, construction, chad, effect;
+with core, ui, attribute, skill, resource, faction, equipment, unit, construction, chad, effect;
 
 use type core.cursor_code;
 use type core.signal_code;
@@ -1043,15 +1043,32 @@ package body world is
                                              ------------------------------------------------------------------------------------------
 
 	procedure show_unit is
+		data : unit.definition := unit.description (show_unit_data);
+		--
 		offset : constant integer := 8;
-		width  : constant integer := 600;
+		width  : constant integer := 640;
 		height : constant integer := 600;
 		at_x   :          integer := core.center_x (width)  + offset;
 		at_y   :          integer := core.center_y (height) + offset;
 	begin
 		ui.draw_frame (core.center_x (width), core.center_y (height), width, height);
 		--
-		ui.draw_sprite (unit.view (show_unit_data), unit.description (show_unit_data).name.all, at_x, at_y, 0);
+		ui.draw_sprite (unit.view (show_unit_data), data.name.all, at_x, at_y, 0);
+		--
+		at_y := at_y + unit.view_height;
+		--
+		ui.draw_separator (at_x, at_y, width - 2 * offset);
+		--
+		at_y := at_y + core.base;
+		--
+		ui.draw_text ("Hiring fee:" & data.hiring_fee'image & character'val (10) &
+		              "Weekly fee:" & data.weekly_fee'image & character'val (10) &
+		              "Battle fee:" & data.battle_fee'image,
+		              at_x, at_y, (width - 3 * offset) / 2 - 20, 0, 0, 10);
+		ui.draw_text ("Faction: " & faction.description (data.kind).name.all & character'val (10) &
+		              "Stack:" & data.limit'image & character'val (10) &
+		              "Bonus: " & attribute.description (faction.description (data.kind).bonus_attribute).name.all,
+		              at_x + (width - offset) / 2, at_y, (width - 3 * offset) / 2 - 20, 0, 0, 10);
 	end show_unit;
 
                                              ------------------------------------------------------------------------------------------