Dataflow error: Attribute collection contains non-unique values

Hi,

I seems to happen randomly, really.
Mostly when I am actively working on a dataflow and I chance the M query code a lot.
I get the error regardless of the types of M code I run. Below is the code of the query that I run. Sometimes this code make me get the error, sometimes it doesn't. My browswer is the the Edge Beta.
//DST test
let
Geocoding = (adres as text) =>
let
Source = Json.Document(Web.Contents("http://www.datasciencetoolkit.org/maps/api/geocode/",[RelativePath="json?sensor=false&address="&adres&""])),
results = Source[results],
results1 = results{0},
geometry = results1[geometry],
location = geometry[location],
#"Converted to Table" = Record.ToTable(location),
#"Transposed Table" = Table.Transpose(#"Converted to Table"),
#"Promoted Headers" = Table.PromoteHeaders(#"Transposed Table", [PromoteAllScalars=true]),
#"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"lat", type number}, {"lng", type number}})
in
#"Changed Type",
Bron = Csv.Document(Web.Contents("https://vanbruggen.sharepoint.com/sites/ManagementInformatie/Gedeelde%20%20documenten/Excel 2.0/Afspraken/Rapportage Inbound 0800.csv"), [Delimiter = ";", Encoding = 1252, QuoteStyle = QuoteStyle.None]),
#"Headers met verhoogd niveau" = Table.PromoteHeaders(Bron, [PromoteAllScalars = true]),
#"Rapportages toegevoegd" = Table.Combine({#"Headers met verhoogd niveau", #"Rapportage Inbound Phonecare", #"Rapportage NHB", #"Rapportage Outbound Eigen klanten", #"Rapportage Kwaliteitslijsten", #"Rapportage Outbound"}),
#"Namen van kolommen gewijzigd" = Table.RenameColumns(#"Rapportages toegevoegd", {{"KPL Rayonnummer", "KPL oud"}}),
#"Rijen gefilterd" = Table.SelectRows(#"Namen van kolommen gewijzigd", each ([#"Resultcode omschr."] = "Adviseur belt voor afspraak" or [#"Resultcode omschr."] = "Afspraak definitief - kantoorbezoek" or [#"Resultcode omschr."] = "Afspraak definitief - thuisbezoek" or [#"Resultcode omschr."] = "Doorgeschakeld naar FN voor afspraak" or [#"Resultcode omschr."] = "Reeds afspraak definitief - kantoorbezoek" or [#"Resultcode omschr."] = "Reeds afspraak definitief - thuisbezoek" or [#"Resultcode omschr."] = "Reeds belt voor afspraak" or [#"Resultcode omschr."] = "Reeds doorgeschakeld naar FN voor afspraak")),
#"Renamed Columns" = Table.RenameColumns(#"Rijen gefilterd", {{"KPL oud", "Rayonnummer"}}),
#"Filtered Rows" = Table.SelectRows(#"Renamed Columns", each true),
#"Changed column type" = Table.TransformColumnTypes(#"Filtered Rows", {{"Beldatum", type date}}),
#"Filtered Rows1" = Table.SelectRows(#"Changed column type", each Date.IsInCurrentMonth([Beldatum])),
#"Added Custom" = Table.AddColumn(#"Filtered Rows1", "geocoding", each ([Straatnaam]&""&[Huisnummer]&","&[Postcode]&","&[Woonplaats]&",NL")),
#"Invoked Custom Function" = Table.AddColumn(#"Added Custom", "geocode", each Geocoding([geocoding])),
#"Expanded geocode" = Table.ExpandTableColumn(#"Invoked Custom Function", "geocode", {"lat", "lng"}, {"lat", "lng"}),
#"Transform columns" = Table.TransformColumnTypes(#"Expanded geocode", {{"geocoding", type text}, {"lat", type number}, {"lng", type number}}),
#"Replace errors" = Table.ReplaceErrorValues(#"Transform columns", {{"geocoding", null}, {"lat", null}, {"lng", null}})
in
#"Replace errors"

Kind regards,

Bram Dekker