diff --git a/DESCRIPTION b/DESCRIPTION
index 5e571da..c4ec5b7 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: lans2r
 Type: Package
 Title: Work with Look at NanoSIMS data in R
-Version: 0.2.3
+Version: 0.2.4
 Date: 2016-08-30
 Author: Sebastian Kopf
 Maintainer: Sebastian Kopf <seb.kopf@gmail.com>
diff --git a/R/calculations.R b/R/calculations.R
index 1b9176d..2a3c964 100644
--- a/R/calculations.R
+++ b/R/calculations.R
@@ -25,14 +25,14 @@ calculate <- function(data, data_type, ..., value_fun,
   # default name function (concatenate the deparsed expression)
   default_name <- function(...) {
     lazy_dots(...) %>% 
-      sapply(function(lexp) deparse(lexp$exp), simplify = TRUE) %>% 
+      sapply(function(lexp) deparse(lexp$exp, width.cutoff = 200L), simplify = TRUE) %>% 
       paste(collapse = " ")
   }
   
   # generate parameter sets
   param_exps <- lazy_dots(...)
   params <- lapply(param_exps, function(lexp) {
-    strsplit(sub("^c\\((.+)\\)$", "\\1", deparse(lexp$expr)), ",\\s?")[[1]]
+    strsplit(sub("^c\\((.+)\\)$", "\\1", deparse(lexp$expr,  width.cutoff = 200L)), ",\\s?")[[1]]
   })
   
   # determine new variable names (calling the name_fun)