beta 2010.05.15 18:13

1 files changed, 4 insertions, 1 deletions

diff --git a/tex/context/base/math-int.mkiv b/tex/context/base/math-int.mkiv
index 8ac2d4776..2af471b5c 100644
--- a/tex/context/base/math-int.mkiv
+++ b/tex/context/base/math-int.mkiv
@@ -57,11 +57,14 @@
 \definemathcommand [iiint]  {\repeatintegral\plustwo  }
 \definemathcommand [iiiint] {\repeatintegral\plusthree}
 
+%def\integralrepeatsymbol{\intop}
+\def\integralrepeatsymbol{{\int}}
+
 \def\repeatintegral#1%
   {\scratchtoks\emptytoks
    \let\dointlimits\donothing
    \let\dodointlimits\intlimits
-   \dorecurse{#1}{\appendtoks \intop \dointkern \to \scratchtoks}
+   \dorecurse{#1}{\appendtoks \integralrepeatsymbol \dointkern \to \scratchtoks}
    \appendtoks \intop \dointlimits \dodointlimits \to \scratchtoks
    \edef\dodorepeatintegral{\the\scratchtoks}%
    \futurelet\next\dorepeatintegral}