diff --git a/bin/createTexModifier.sh b/bin/createTexModifier.sh
new file mode 100755
index 0000000000000000000000000000000000000000..07f82b89ff3bd04696c18332c55dac648a4b98c1
--- /dev/null
+++ b/bin/createTexModifier.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+
+perl -i -pe's/(fig2dev\ \-L\ pstex\ \-D\ \+[0-9]+),([0-9]+)/$1:$2/' $*
+
+#end
\ No newline at end of file
diff --git a/bin/fig2mpdf b/bin/fig2mpdf
index 1ba6384451da3e6067d2f62b15b8d2ce8498a567..0a355dbf0dd09e5ffc4354dec2c3ebf9ad41928a 100755
--- a/bin/fig2mpdf
+++ b/bin/fig2mpdf
@@ -439,7 +439,9 @@ function fnDoTexFig(szFileNameBase, szFigFile, szRangeList, iPdf,
     szCommand = sprintf("%s -L pstex_p %s -p %s %s %s", cmdFig2dev, szRangeList, szTexInpPref, szFigFile, szTexInp);
   debug("%s\n", szCommand);
   system(szCommand);
-
+  createModifierCommand=sprintf("/ma/goik/createTexModifier.sh %s", szTexCreator);
+  debug("%s\n",createModifierCommand);
+  system(createModifierCommand);
   szCommand = sprintf("./%s", szTexCreator);
   debug("%s\n", szCommand);
   system(szCommand);