diff --git a/R/gds2bgen.r b/R/gds2bgen.r
index 627f7d6..2c6b089 100755
--- a/R/gds2bgen.r
+++ b/R/gds2bgen.r
@@ -375,11 +375,10 @@ seqBGEN2GDS <- function(bgen.fn, out.fn, storage.option="LZMA_RA", float.type=
         }
         if (geno) {
             varnm <- c(varnm, c(
-                "genotype/data",
-                "genotype/@data",
-                "genotype/extra.index",
-                "genotype/extra"
-            ))
+                "genotype/data", "genotype/@data",
+                "genotype/extra.index", "genotype/extra",
+                "phase/data",
+                "phase/extra.index", "phase/extra" ))
         }
 
         if (verbose) cat("Merging:\n")
diff --git a/src/R_gds2bgen.c b/src/R_gds2bgen.c
index 814a074..a7a3aac 100644
--- a/src/R_gds2bgen.c
+++ b/src/R_gds2bgen.c
@@ -1,5 +1,5 @@
 //
-// R_SeqArray.c: Link to the gdsfmt package
+// R_gds2bgen.c: Link to the gdsfmt package
 //
 
 #include <R_GDS.h>