beta 2011.10.07 20:33

1 files changed, 7 insertions, 5 deletions

diff --git a/tex/context/base/mlib-pps.mkiv b/tex/context/base/mlib-pps.mkiv
index b2afbc0da..884003e68 100644
--- a/tex/context/base/mlib-pps.mkiv
+++ b/tex/context/base/mlib-pps.mkiv
@@ -50,11 +50,13 @@
 \def\MPLIBgettextscaledcm#1#2#3#4#5#6#7#8#9% 2-7: sx,rx,ry,sy,tx,ty
   {\ctxlua{metapost.gettext(\number\MPtextbox,#1)}%
    \setbox\scratchbox\hbox
-     {\hskip\dimexpr#6bp\raise#7bp\hbox
-        {\pdfsave
-         \pdfsetmatrix{#2 #3 #4 #5}%
-         \vbox to \zeropoint{\vss\hbox to \zeropoint{\scale[\c!sx=#8,\c!sy=#9]{\raise\dp\MPtextbox\box\MPtextbox}\forcecolorhack\hss}}%
-         \pdfrestore}}%
+     {\dotransformnextbox{#2}{#3}{#4}{#5}{#6}{#7}% does push pop
+        \vbox to \zeropoint
+          {\vss
+           \hbox to \zeropoint
+             {\scale[\c!sx=#8,\c!sy=#9]{\raise\dp\MPtextbox\box\MPtextbox}%
+              \forcecolorhack
+              \hss}}}%
    \smashbox\scratchbox
    \box\scratchbox}