diff --git a/reactos/base/setup/usetup/partlist.c b/reactos/base/setup/usetup/partlist.c
index b1242470aaa..765c2f0c7f8 100644
--- a/reactos/base/setup/usetup/partlist.c
+++ b/reactos/base/setup/usetup/partlist.c
@@ -2965,6 +2965,7 @@ WritePartitionsToDisk(
         if (DiskEntry->Dirty == TRUE)
         {
             WritePartitons(List, DiskEntry);
+            DiskEntry->Dirty = FALSE;
         }
 
         Entry = Entry->Flink;