diff --git a/bin/plot_homer_annotatepeaks.r b/bin/plot_homer_annotatepeaks.r
index 6219ae28..4a867d8f 100755
--- a/bin/plot_homer_annotatepeaks.r
+++ b/bin/plot_homer_annotatepeaks.r
@@ -57,7 +57,7 @@ plot.feature.dat <- data.frame()
 for (idx in 1:length(HomerFiles)) {
 
     sampleid = SampleIDs[idx]
-    anno.dat <- read.table(HomerFiles[idx], sep="\t", header=TRUE,quote="")
+    anno.dat <- read.csv(HomerFiles[idx], sep="\t", header=TRUE)
     anno.dat <- anno.dat[,c("Annotation","Distance.to.TSS","Nearest.PromoterID")]
 
     ## REPLACE UNASSIGNED FEATURE ENTRIES WITH SENSIBLE VALUES