Index: toltcl/generic/tolaccess.cpp
===================================================================
--- toltcl/generic/tolaccess.cpp	(revision d5d6e3123e74455d51d4ea5241c769edd777c213)
+++ toltcl/generic/tolaccess.cpp	(revision 08e78b9912c7aa65d8edbbd6a835f6ecb1714d68)
@@ -142,9 +142,4 @@
   }
   return TCL_OK;
-}
-
-int Tol_IsInitialized( )
-{
-  return BGrammar::Exists( "Real" );
 }
 
Index: toltcl/generic/toltcl.c
===================================================================
--- toltcl/generic/toltcl.c	(revision d5d6e3123e74455d51d4ea5241c769edd777c213)
+++ toltcl/generic/toltcl.c	(revision 08e78b9912c7aa65d8edbbd6a835f6ecb1714d68)
@@ -218,6 +218,6 @@
   vmode = objc == 3 ? Tcl_GetString(objv[2]) :  NULL;
 
-  if ( !Tol_IsInitialized( ) ) {
-    //printf( "TOL no esta inicializado\n" );
+  if ( !TOLHasBeenInitialized( ) ) {
+    printf( "TOL no esta inicializado\n" );
     /*
      * Initialize kernel
@@ -232,5 +232,5 @@
     Tol_gsl_set_error_handler(&TT_gsl_error_handler);
   } else {
-    //printf( "TOL esta inicializado\n" );
+    printf( "TOL esta inicializado\n" );
   }
   
Index: toltcl/generic/toltclInt.h
===================================================================
--- toltcl/generic/toltclInt.h	(revision d5d6e3123e74455d51d4ea5241c769edd777c213)
+++ toltcl/generic/toltclInt.h	(revision 08e78b9912c7aa65d8edbbd6a835f6ecb1714d68)
@@ -43,8 +43,4 @@
 extern Tcl_Interp * TT_interp;
 
-/*! Check if TOL kernel has being initialized
- */
-extern int Tol_IsInitialized ();
-
 /*! Fill in obj_result the version info corresponding to tol
  *   {major MajorNum minor MinorNum release ReleaseNum coment Comment}