1 files changed, 1 insertions, 6 deletions
diff --git a/src/LivingVillage.Desktop/Game.fs b/src/LivingVillage.Desktop/Game.fs
index 05afdc2..db39566 100644
--- a/src/LivingVillage.Desktop/Game.fs
+++ b/src/LivingVillage.Desktop/Game.fs
@@ -483,12 +483,7 @@ type LivingVillageGame() as this =
         // §3 身份条目：带职业开局即写入年鉴，形成个人传记线
         match state with
         | Some occupationState ->
-            world <-
-                Sim.appendAnnal
-                    { Tick = world.Tick
-                      Kind = StoryAnnal
-                      Summary = Occupation.Story.identitySummaryOf occupationState.Profile.Kind }
-                    world
+            world <- WorldBootstrap.appendIdentityAnnal occupationState world
         | None -> ()
         this.ResetWorldView()
         m5View <- { m5View with Task = state }