diff --git a/R/importWaterML1.r b/R/importWaterML1.r
index f8c2d483f70de29d3a0c156350046ab079a49d85..c78923d98b3fd49dd624cf4c6f637e785f2f2c85 100644
--- a/R/importWaterML1.r
+++ b/R/importWaterML1.r
@@ -349,9 +349,8 @@ importWaterML1 <- function(obs_url,asDateTime=FALSE, tz=""){
     
   }
   
-#   sortingColumns <- c("agency","site_no","dateTime","tz_cd")
-#   dataColumns <- names(mergedDF)[!(names(mergedDF) %in% sortingColumns)]
-#   dataColumns <- dataColumns[-grep("_cd",dataColumns)]
+  dataColumns <- unique(dataColumns)
+  qualColumns <- unique(qualColumns)
   
   sortingColumns <- names(mergedDF)[!(names(mergedDF) %in% c(dataColumns,qualColumns))]