Merge pull request #5677 from kdmcser/hang_fix

fix hangs after a siege battle

lib/mapObjects/CGTownInstance.cpp

@@ -644,7 +644,7 @@ void CGTownInstance::clearArmy() const
 {
 	while(!stacks.empty())
 	{
-		cb->eraseStack(StackLocation(id, stacks.begin()->first));
+		cb->eraseStack(StackLocation(id, stacks.begin()->first), true);
 	}
 }