diff --git a/DESCRIPTION b/DESCRIPTION
index dd726758..56d0224b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: gtfsrouter
 Title: Routing with 'GTFS' (General Transit Feed Specification) Data
-Version: 0.1.2.003
+Version: 0.1.2.004
 Authors@R: c(
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")),
     person("Marcin", "Stepniak", , "marcinstepniak@ucm.es", role = "aut",
diff --git a/R/transfers.R b/R/transfers.R
index 178f386a..80d7f2e8 100644
--- a/R/transfers.R
+++ b/R/transfers.R
@@ -93,10 +93,9 @@ gtfs_transfer_table <- function (gtfs,
         min_transfer_time = ceiling (transfer_times)
     )
 
-    index <- which (!duplicated (transfers [, c (
-        "from_stop_id",
-        "to_stop_id"
-    )]))
+    # See #114: data.table::duplicated currently segfaults (Jan 2024):
+    ft <- data.frame (transfers [, c ("from_stop_id", "to_stop_id")])
+    index <- which (!duplicated (ft))
     transfers <- transfers [index, ]
 
     # Those transfers only include times, but these may then correspond to
diff --git a/codemeta.json b/codemeta.json
index 83be9f73..7aea2aaa 100644
--- a/codemeta.json
+++ b/codemeta.json
@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/gtfsrouter",
   "issueTracker": "https://github.com/UrbanAnalyst/gtfsrouter/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.2.003",
+  "version": "0.1.2.004",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",