diff --git a/workflow/scripts/calculateTPM.R b/workflow/scripts/calculateTPM.R
index 9a163c4cff75052e0c6baf708e06387976100407..a26bf943dce7d082ed03b77939390abb022bba82 100644
--- a/workflow/scripts/calculateTPM.R
+++ b/workflow/scripts/calculateTPM.R
@@ -30,4 +30,4 @@ tpm <- rpk/scale
 output <- cbind(count,tpm)
 colnames(output)[7] <- "count"
 
-write.table(output,file=paste0(repRID,"_countTable.csv"),sep=",",row.names=FALSE,quote=FALSE)
+write.table(output,file=paste0(repRID,".countTable.csv"),sep=",",row.names=FALSE,quote=FALSE)