diff --git a/R/ports_in_use.R b/R/ports_in_use.R
index 00857d2..b565af5 100644
--- a/R/ports_in_use.R
+++ b/R/ports_in_use.R
@@ -27,7 +27,7 @@ ports_in_use <- function() {
   out <- switch(os,
 
          "Windows" = {
-           local <- active_connections_table[ , 4] # Local / locale depending on language
+           local <- active_connections_table[ , 3] # Local / locale depending on language
 
            sapply(strsplit(local, ":"), function(x) { tail(x, 1) } )