diff --git a/R/swcReadData.R b/R/swcReadData.R
index 9bbe817..f77f1dd 100644
--- a/R/swcReadData.R
+++ b/R/swcReadData.R
@@ -84,7 +84,7 @@ swcReadData <- function() .swcReadData()
   l <- lapply(X=ft, FUN=function(t) {
     logging::logdebug('Parsing data set: %s', t$n)
 
-    fname <- grep(paste0('_', t$n, '.txt'), file.list$Name, value=T)
+    fname <- grep(paste0('_', t$n, '(?:_.*)?[.]txt'), file.list$Name, value=T)
     fpath <- file.path(unzip.dir.name, fname)
     dat <- read.table(fpath, sep='\t', quote='', col.names=t$colnames, fileEncoding='ISO8859-15', stringsAsFactors=F)