[minor issue] Error in ShowShipData procedure