diff --git a/DESCRIPTION b/DESCRIPTION
index 88aaa528..66d23c54 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: dataRetrieval
 Type: Package
 Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data
-Version: 2.6.8
-Date: 2017-01-20
+Version: 2.6.8.1
+Date: 2017-04-05
 Authors@R: c( person("Robert", "Hirsch", role = c("aut"),
     email = "rhirsch@usgs.gov"),
     person("Laura", "DeCicco", role = c("aut","cre"),
diff --git a/NEWS b/NEWS
index ace25b48..8c502354 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+dataRetrieval 2.6.8.1
+* Added National Groundwater Monitoring Network services, and new Water Quality Portal features.  
+
 dataRetrieval 2.6.3
 ==========
 * All USGS web services are being flipped from http to https. This version of dataRetrieval will attempt to access https, if that fails, will attempt http.
diff --git a/R/getWebServiceData.R b/R/getWebServiceData.R
index c0b14002..eaf8c5c2 100644
--- a/R/getWebServiceData.R
+++ b/R/getWebServiceData.R
@@ -29,21 +29,7 @@
 #' }
 getWebServiceData <- function(obs_url, ...){
   
-  returnedList <- tryCatch({
-    retryGetOrPost(obs_url, ...)
-  }, error = function(e){
-    NULL
-  })
-    
-  if(is.null(returnedList)){
-    message("Switching from https to http")
-    obs_url <- gsub("https", "http", obs_url)
-    returnedList <- tryCatch({
-      retryGetOrPost(obs_url, ...)
-    }, error = function(e){
-      NULL
-    })
-  } 
+  returnedList <- retryGetOrPost(obs_url, ...)
   
   if(status_code(returnedList) != 200){
     message("For: ", obs_url,"\n")
diff --git a/R/importNGWMN_wml2.R b/R/importNGWMN_wml2.R
index c7d02404..80b8fe3b 100644
--- a/R/importNGWMN_wml2.R
+++ b/R/importNGWMN_wml2.R
@@ -87,7 +87,7 @@ importNGWMN <- function(input, asDateTime=FALSE, tz="UTC"){
     }
     nonDateCols <- grep("date",names(mergedDF), value=TRUE, invert = TRUE)
     
-    if(length(mergedDF) > 0){
+    if(nrow(mergedDF) > 0){
       mergedDF[nonDateCols][mergedDF[nonDateCols] == "" | mergedDF[nonDateCols]== -999999.0] <- NA
     }
     attr(mergedDF, "gml:identifier") <- xml_text(xml_find_all(returnedDoc, ".//gml:identifier")) 
@@ -153,7 +153,7 @@ importWaterML2 <- function(input, asDateTime=FALSE, tz="UTC") {
   if(length(TVP) == 0) { #empty nodes on some sites
     return(data.frame(site = character(0), source = character(0), date = character(0),
                       time = character(0), dateTime = character(0), value = numeric(0),
-                      uom = character(0), comment = charater(0), stringsAsFactors = FALSE))
+                      uom = character(0), comment = character(0), stringsAsFactors = FALSE))
   }
   rawTime <- xml_text(xml_find_all(TVP,".//wml2:time"))
   
diff --git a/R/readNGWMNdata.R b/R/readNGWMNdata.R
index 5c4af443..cde110a8 100644
--- a/R/readNGWMNdata.R
+++ b/R/readNGWMNdata.R
@@ -38,8 +38,8 @@
 #' noDataSite <- readNGWMNdata(siteNumbers = noDataSite, service = "observation")
 #' 
 #' #bounding box
-#' bboxSites <- readNGWMNdata(service = "featureOfInterest", bbox = c(30, -99, 31, 102))
-#' #retrieve 100 sites.  Set asDateTime to false since one site has an invalid date
+#' bboxSites <- readNGWMNdata(service = "featureOfInterest", bbox = c(30, -102, 31, 99))
+#' #retrieve  sites.  Set asDateTime to false since one site has an invalid date
 #' bboxData <- readNGWMNdata(service = "observation", siteNumbers = bboxSites$site[1:3], 
 #' asDateTime = FALSE)
 #' }
diff --git a/man/readNGWMNdata.Rd b/man/readNGWMNdata.Rd
index 0016d108..6ff86475 100644
--- a/man/readNGWMNdata.Rd
+++ b/man/readNGWMNdata.Rd
@@ -45,8 +45,8 @@ noDataSite <- "UTGS.401544112060301"
 noDataSite <- readNGWMNdata(siteNumbers = noDataSite, service = "observation")
 
 #bounding box
-bboxSites <- readNGWMNdata(service = "featureOfInterest", bbox = c(30, -99, 31, 102))
-#retrieve 100 sites.  Set asDateTime to false since one site has an invalid date
+bboxSites <- readNGWMNdata(service = "featureOfInterest", bbox = c(30, -102, 31, 99))
+#retrieve  sites.  Set asDateTime to false since one site has an invalid date
 bboxData <- readNGWMNdata(service = "observation", siteNumbers = bboxSites$site[1:3], 
 asDateTime = FALSE)
 }
diff --git a/tests/testthat/tests_imports.R b/tests/testthat/tests_imports.R
index 5f0093bc..125775d8 100644
--- a/tests/testthat/tests_imports.R
+++ b/tests/testthat/tests_imports.R
@@ -49,12 +49,12 @@ test_that("External importRDB1 tests", {
   
   
   site <- "05427850"
+
   url <- constructNWISURL(site,"00060","2015-01-01", "","dv",
                           format="tsv",
                           statCd = "laksjd")
   # And....now there's data there:
   expect_error(importRDB1(url))
-
 })
 
 context("importRDB")