diff --git a/gridss.wdl b/gridss.wdl
index 007053928978b2080a662c39d1f890ec187166fc..0e8fd434c87a8eed1889d555d22a887889dce50b 100644
--- a/gridss.wdl
+++ b/gridss.wdl
@@ -94,7 +94,7 @@ task AnnotateSvTypes {
     command <<<
         set -e
         mkdir -p "$(dirname ~{outputPath})"
-        R --vanilla << EOF
+        R --vanilla << "EOF"
         library(VariantAnnotation)
         library(StructuralVariantAnnotation)
 
@@ -115,7 +115,7 @@ task AnnotateSvTypes {
         gr <- breakpointRanges(vcf)
         svtype <- simpleEventType(gr)
         info(vcf[gr$sourceId])$SVTYPE <- svtype
-        writeVcf(vcf, out_path)
+        writeVcf(vcf, out_path, index=T)
         EOF
     >>>