diff --git a/R/newGetDistances.R b/R/newGetDistances.R
index 18cd9c7..896b1a3 100644
--- a/R/newGetDistances.R
+++ b/R/newGetDistances.R
@@ -1,5 +1,5 @@
 newGetDistances <- function(data, rowsFromInd) {
-	ninds <- max(data[, end])
+	ninds <- max(data[, ncol(data)])
 	nloci <- size(data, 2) - 1
 	riviLkm <- choose(ninds, 2)