diff --git a/DESCRIPTION b/DESCRIPTION
index 403dd7047ca6a3d2f60a9e8e24f90e127528bff1..219a1b48af3e9376138d455bc6fad71449036c6d 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: dataRetrieval
 Type: Package
 Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data
-Version: 2.5.9
+Version: 2.5.10
 Date: 2016-06-14
 Authors@R: c( person("Robert", "Hirsch", role = c("aut"),
     email = "rhirsch@usgs.gov"),
@@ -12,7 +12,9 @@ Authors@R: c( person("Robert", "Hirsch", role = c("aut"),
     person("Jordan", "Read", role = c("ctb"),
     email = "jread@usgs.gov"),
     person("Lindsay","Carr", role=c("ctb"),
-    email = "lcarr@usgs.gov"))
+    email = "lcarr@usgs.gov"),
+    person("David","Watkins", role=c("ctb"),
+    email = "wwatkins@usgs.gov"))
 Description: Collection of functions to help retrieve U.S. Geological Survey
     (USGS) and U.S. Environmental Protection Agency (EPA) water quality and
     hydrology data from web services. USGS web services are discovered from the
diff --git a/NAMESPACE b/NAMESPACE
index 0598f38325ce3e9b80eca1a1e5fdb64486aaa566..3d38213e980a724f30c3bdd9d8c8d071c7f78c5b 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -65,7 +65,6 @@ importFrom(lubridate,parse_date_time)
 importFrom(readr,col_character)
 importFrom(readr,col_number)
 importFrom(readr,cols)
-importFrom(readr,parse_number)
 importFrom(readr,problems)
 importFrom(readr,read_delim)
 importFrom(readr,read_lines)
diff --git a/R/getWebServiceData.R b/R/getWebServiceData.R
index dbfd7e655c8afd774fa519727c1b1f6c5d6b9e2f..6473fa347b2f1b8951b39141beda126b6deee991 100644
--- a/R/getWebServiceData.R
+++ b/R/getWebServiceData.R
@@ -37,7 +37,8 @@ getWebServiceData <- function(obs_url, ...){
 
       if(headerInfo$`content-type` == "text/tab-separated-values;charset=UTF-8"){
         returnedDoc <- content(returnedList, type="text",encoding = "UTF-8")
-      } else if (headerInfo$`content-type` == "text/xml;charset=UTF-8"){
+      } else if (headerInfo$`content-type` %in% c("text/xml;charset=UTF-8",
+                                                  "text/xml")){
         returnedDoc <- xmlcontent(returnedList)
       } else if (headerInfo$`content-type` == "text/html"){
         txt <- readBin(returnedList$content, character())
diff --git a/R/importRDB1.r b/R/importRDB1.r
index 9ee984d547717215c91f80c3853a12ba9059faa3..f222ad32f580f080e790c162fa932727f18fe144 100644
--- a/R/importRDB1.r
+++ b/R/importRDB1.r
@@ -47,8 +47,8 @@
 #' @importFrom readr read_lines
 #' @importFrom readr read_delim
 #' @importFrom readr problems
-#' @importFrom readr parse_number
 #' @importFrom lubridate fast_strptime
+#' @importFrom lubridate parse_date_time
 #' @examples
 #' siteNumber <- "02177000"
 #' startDate <- "2012-09-01"
@@ -166,12 +166,8 @@ importRDB1 <- function(obs_url, asDateTime=TRUE, convertType = TRUE, tz=""){
         
         if(all(c(paste0(i,"_dt"),paste0(i,"_tm")) %in% header.names)){
           varname <- paste0(i,"_dateTime")
-          
-          if("lt" %in% names(formals(fast_strptime))){
-            varval <- fast_strptime(paste(readr.data[,paste0(i,"_dt")],readr.data[,paste0(i,"_tm")]), "%Y-%m-%d %H:%M", tz = "UTC", lt=FALSE)
-          } else {
-            varval <- fast_strptime(paste(readr.data[,paste0(i,"_dt")],readr.data[,paste0(i,"_tm")]), "%Y-%m-%d %H:%M", tz = "UTC")
-          }
+
+          varval <- as.POSIXct(fast_strptime(paste(readr.data[,paste0(i,"_dt")],readr.data[,paste0(i,"_tm")]), "%Y-%m-%d %H:%M", tz = "UTC"))
           
           if(!all(is.na(varval))){
             readr.data[,varname] <- varval
@@ -203,7 +199,7 @@ importRDB1 <- function(obs_url, asDateTime=TRUE, convertType = TRUE, tz=""){
       
       if(all(c("DATE","TIME","TZCD") %in% header.names)){
         varname <- "DATETIME"
-        varval <- fast_strptime(paste(readr.data[,"DATE"],readr.data[,"TIME"]), "%Y-%m-%d %H%M%S", tz = "UTC", lt=FALSE)
+        varval <- as.POSIXct(fast_strptime(paste(readr.data[,"DATE"],readr.data[,"TIME"]), "%Y-%m-%d %H%M%S", tz = "UTC"))
         readr.data[,varname] <- varval
         readr.data <- convertTZ(readr.data,"TZCD",varname,tz, flip.cols=TRUE)
       }