diff --git a/R/translation.R b/R/translation.R
index 42073aced..3e2a98cc6 100644
--- a/R/translation.R
+++ b/R/translation.R
@@ -5,7 +5,7 @@ catf = function(fmt, ..., sep=" ", domain="R-data.table") {
 }
 
 raise_condition = function(signal, message, classes, immediate=FALSE, appendLF=FALSE) {
-  obj = list(message=message, call=sys.call(2))
+  obj = list(message=message, call=sys.call(sys.nframe()-2L))
   # NB: append _after_ translation
   if (appendLF) obj$message = paste0(obj$message, "\n")
   setattr(obj, "class", classes)