diff --git a/R/readNWISdv.r b/R/readNWISdv.r
index e6dc8632f195c5417c368644bb572e175866b41d..28f0ae7d221b00489f83a0725c54f5c12c323e4a 100644
--- a/R/readNWISdv.r
+++ b/R/readNWISdv.r
@@ -68,8 +68,8 @@ readNWISdv <- function (siteNumber,parameterCd,startDate="",endDate="",statCd="0
   if(nrow(data)>0){
     data$dateTime <- as.Date(data$dateTime)
     data$tz_cd <- NULL
-    data$Date <- data$dateTime 
-    data$dateTime <- NULL
+    
+    names(data)[names(data) == "dateTime"] <- "Date"    
   }