Кажется, что один из обходных путей для этой ошибки - переместить "Message"
в другое место в опциях Cell
:
printMessage[cellexpr_]:=CellPrint@Cell[cellexpr,CellLabel->"(slave Kernel)",
"Message", ShowCellLabel->True,
CellFrameMargins->0,Background->LightBrown,
CellLabelAutoDelete->False];
printMessage[BoxData[RowBox[{RowBox[{"Sin", "::", "\"argx\""}], ": ",
"\"\\!\\(Sin\\) called with \\!\\(2\\) arguments; 1 argument is expected.\""}],
StandardForm]]
Sin[1,1];
РЕДАКТИРОВАТЬ
Нов результате внешний вид напечатанного Cell
изменяется:
print := printMessage[
BoxData[RowBox[{RowBox[{"NIntegrate", "::", "\"slwcon\""}], ": ",
"\"Numerical integration converging too slowly; suspect one of \
the following: singularity, value of the integration being 0, \
oscillatory integrand, or insufficient WorkingPrecision. If your \
integrand is oscillatory try using the option Method->Oscillatory in \
NIntegrate.\""}], StandardForm]]
РЕДАКТИРОВАТЬ 2
Обходное решение работает тольково время первого свежего сеанса.После сохранения и повторного открытия Ноутбука проблема снова появляется.
Единственный работающий обходной путь в этот момент - не используйте Стили, а укажите явный набор параметров.