对Mathematica中生成的消息的反思

有没有任何方法来获取在数学表达式的评估过程中生成的实际消息?比如说我在用数字解一首颂歌,它就会爆炸,就像这样。

In[1] := sol = NDSolve[{x'[t] == -15 x[t], x[0] == 1}, x, {t, 0, 1}, 
                       Method -> "ExplicitEuler"];

在这种情况下,我会得到 NDSolve::mxst 错误,告诉我在 t == 0.08671962566152185 .现在,如果我看 $MessageList 变量,我只接收消息名;特别是有关 t 在哪里? NDSolve 决定辞职已经失败了。

现在,我总能从 sol 使用 InterpolatingFunctionDomain 功能来自一个标准的附加包,但是如果我能以某种方式将其从消息中提取出来,它将非常有用。