diff --git a/DESCRIPTION b/DESCRIPTION
index b71abd1..fbc9b5b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: BIGr
 Title: Breeding Insight Genomics Functions for Polyploid and Diploid Species
-Version: 0.7.0
+Version: 0.8.0
 Authors@R: c(person(given='Alexander M.',
                     family='Sandercock',
                     email='sandercock.alex@gmail.com',
diff --git a/R/updog2vcf.R b/R/updog2vcf.R
index 11c6635..82c846b 100644
--- a/R/updog2vcf.R
+++ b/R/updog2vcf.R
@@ -126,9 +126,16 @@ updog2vcf <- function(multidog.object, output.file, updog_version = NULL, RefAlt
 
   #CHROM and POS from SNP ID
   new_df <- mout$snpdf %>%
-    separate(snp, into = c("CHROM", "POS"), sep = "_") %>%
+    extract(
+      snp,
+      into = c("CHROM", "POS"),
+      regex = "^(.*)_([^_]*)$"
+    ) %>%
+    mutate(
+      POS = sub("^0+", "", POS),
+      POS = if_else(POS == "", "0", POS)
+    ) %>%
     select(CHROM, POS)
-  new_df$POS <- sub("^0+", "", new_df$POS)
 
   #Make the VCF df
   vcf_df <- data.frame(