diff --git a/R/populateDateColumns.r b/R/populateDateColumns.r
index b1b548e79db912b822230221c0b2b884c4ad5df0..99ac1d3ce67ba1dea9e875a01f4c6c2166a8526a 100644
--- a/R/populateDateColumns.r
+++ b/R/populateDateColumns.r
@@ -20,7 +20,7 @@ populateDateColumns <- function(rawData){  # rawData is a vector of dates
   
   leapOffset <- ifelse((year%%4 == 0) & ((year%%100 != 0) | (year%%400 == 0)), 0,1)
   
-  DateFrame$Day[DateFrame$Day > 59] <- DateFrame$Day[DateFrame$Day > 59] + leapOffset 
+  DateFrame$Day[DateFrame$Day > 59] <- DateFrame$Day[DateFrame$Day > 59] + leapOffset[DateFrame$Day > 59]
   
   DateFrame$DecYear <- year + (DateFrame$Day -0.5)/366
   DateFrame$MonthSeq <- ((year-1850)*12)+DateFrame$Month