diff --git a/R/read.px.R b/R/read.px.R
index 9be8bc1..4bec4a9 100644
--- a/R/read.px.R
+++ b/R/read.px.R
@@ -46,8 +46,8 @@ read.px <- function(filename, encoding = NULL,
     }
 
     break.clean <- function(x) {
-        x <- clean.spaces( strsplit(x, split = '\\"')[[1]] )    ## breaks by '"'
-        x[! x %in% c("," , "")]                                 ## and drops spurious seps
+        x <- clean.spaces( strsplit(x, split = '\", ?\"')[[1]] )    ## breaks by \", \" (with or without space)
+
     }