Index: toltcl/generic/tolaccess.cpp
===================================================================
--- toltcl/generic/tolaccess.cpp	(revision b47c991b41be35ec9197a40d250bffb452996ef8)
+++ toltcl/generic/tolaccess.cpp	(revision d5d6e3123e74455d51d4ea5241c769edd777c213)
@@ -142,4 +142,9 @@
   }
   return TCL_OK;
+}
+
+int Tol_IsInitialized( )
+{
+  return BGrammar::Exists( "Real" );
 }
 
Index: toltcl/generic/toltcl.c
===================================================================
--- toltcl/generic/toltcl.c	(revision b47c991b41be35ec9197a40d250bffb452996ef8)
+++ toltcl/generic/toltcl.c	(revision d5d6e3123e74455d51d4ea5241c769edd777c213)
@@ -217,16 +217,22 @@
   lang = (objc == 1 || !strcasecmp("es", Tcl_GetString(objv[1])));
   vmode = objc == 3 ? Tcl_GetString(objv[2]) :  NULL;
-  /*
-   * Initialize kernel
-   */
-
-  InitTolKernel(Tcl_GetNameOfExecutable(), lang, vmode&&vmode[0]?vmode:NULL);
-
-  /*
-   * this should only be called to find out where the GSL errors are generated
-   */
-
-  Tol_gsl_set_error_handler(&TT_gsl_error_handler);
-
+
+  if ( !Tol_IsInitialized( ) ) {
+    //printf( "TOL no esta inicializado\n" );
+    /*
+     * Initialize kernel
+     */
+    
+    InitTolKernel(Tcl_GetNameOfExecutable(), lang, vmode&&vmode[0]?vmode:NULL);
+    
+    /*
+     * this should only be called to find out where the GSL errors are generated
+     */
+    
+    Tol_gsl_set_error_handler(&TT_gsl_error_handler);
+  } else {
+    //printf( "TOL esta inicializado\n" );
+  }
+  
   /*
    * Install tol::* commands
Index: toltcl/generic/toltclInt.h
===================================================================
--- toltcl/generic/toltclInt.h	(revision b47c991b41be35ec9197a40d250bffb452996ef8)
+++ toltcl/generic/toltclInt.h	(revision d5d6e3123e74455d51d4ea5241c769edd777c213)
@@ -39,9 +39,11 @@
 #endif
 
-
 BEGIN_C_DECLS
 
-
 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