diff --git a/src/tcl.c b/src/tcl.c
index 949fc5842..7c727981e 100644
--- a/src/tcl.c
+++ b/src/tcl.c
@@ -283,8 +283,10 @@ static char *tcl_eggstr(ClientData cdata, Tcl_Interp *irp,
     }
     s = (char *) Tcl_GetVar2(interp, name1, name2, 0);
     if (s != NULL) {
-      if (strlen(s) > abs(st->max))
+      if (strlen(s) > abs(st->max)) {
+        putlog(LOG_MISC, "*", "WARNING: Value for %s truncated to %i chars", name1, abs(st->max));
         s[abs(st->max)] = 0;
+      }
       if (st->str == botnetnick)
         botnet_change(s);
       else if (st->str == logfile_suffix)