diff --git a/src/town_cmd.cpp b/src/town_cmd.cpp
index 44679fbf19..ee4b69613f 100644
--- a/src/town_cmd.cpp
+++ b/src/town_cmd.cpp
@@ -148,6 +148,9 @@ Town::~Town()
 	}
 
 	/* Clear the persistent storage list. */
+	for (auto &psa : this->psa_list) {
+		delete psa;
+	}
 	this->psa_list.clear();
 
 	DeleteSubsidyWith(SourceType::Town, this->index);