1 files changed, 4 insertions, 11 deletions
diff --git a/tcl/win/tclWinMtherr.c b/tcl/win/tclWinMtherr.c
index 654094a1915..f307a8c2b03 100644
--- a/tcl/win/tclWinMtherr.c
+++ b/tcl/win/tclWinMtherr.c
@@ -12,18 +12,9 @@
  * RCS: @(#) $Id$
  */
 
-#include "tclInt.h"
-#include "tclPort.h"
+#include "tclWinInt.h"
 #include <math.h>
 
-/*
- * The following variable is secretly shared with Tcl so we can
- * tell if expression evaluation is in progress.  If not, matherr
- * just emulates the default behavior, which includes printing
- * a message.
- */
-
-extern int tcl_MathInProgress;
 
 /*
  *----------------------------------------------------------------------
@@ -49,7 +40,7 @@ int
 _matherr(xPtr)
     struct exception *xPtr;	/* Describes error that occurred. */
 {
-    if (!tcl_MathInProgress) {
+    if (!TclMathInProgress()) {
 	return 0;
     }
     if ((xPtr->type == DOMAIN) || (xPtr->type == SING)) {
@@ -59,3 +50,5 @@ _matherr(xPtr)
     }
     return 1;
 }
+
+