diff --git a/ghc/rts/Evaluator.c b/ghc/rts/Evaluator.c
index ac0c986b3d91af8ac2031488cf42a2cb1a7417eb..a51c1aadea6da70ad5709aad82f45bbba8daa988 100644
--- a/ghc/rts/Evaluator.c
+++ b/ghc/rts/Evaluator.c
@@ -5,8 +5,8 @@
  * Copyright (c) 1994-1998.
  *
  * $RCSfile: Evaluator.c,v $
- * $Revision: 1.48 $
- * $Date: 2000/04/14 15:18:06 $
+ * $Revision: 1.49 $
+ * $Date: 2000/04/25 17:47:42 $
  * ---------------------------------------------------------------------------*/
 
 #include "Rts.h"
@@ -491,6 +491,8 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 )
 
     enterLoop:
 
+    numEnters++;
+
 #ifdef DEBUG
     assert(gSp == tSp);
     assert(gSu == tSu);
@@ -3518,5 +3520,4 @@ void B__decodeFloat (B* man, I_* exp, StgFloat flt)
 }
 
 #endif	/* FLOATS_AS_DOUBLES */
-
 #endif /* INTERPRETER */
diff --git a/ghc/rts/Evaluator.h b/ghc/rts/Evaluator.h
index a6e46f73ce92788a717c4f35e2393b9b56e0f8c0..6c680e1cb3447533e3764aa8ed6eeee3b363d6ed 100644
--- a/ghc/rts/Evaluator.h
+++ b/ghc/rts/Evaluator.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Evaluator.h,v 1.6 1999/11/08 15:30:37 sewardj Exp $
+ * $Id: Evaluator.h,v 1.7 2000/04/25 17:47:43 andy Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -51,3 +51,5 @@ extern void   PushTaggedDouble     ( StgDouble    );
 
 extern void   PushPtr        ( StgPtr );
 extern StgPtr PopPtr         ( void );
+
+extern int    numEnters;