Index: tol/contrib/cint/tolCint.cpp
===================================================================
--- tol/contrib/cint/tolCint.cpp	(revision a3ef6434863af71db966576dcf223b597de1868d)
+++ tol/contrib/cint/tolCint.cpp	(revision 490da831163cddc29a367251775c1912bbd6dc08)
@@ -31,4 +31,6 @@
 #include <tol/tol_bsetgra.h>
 #include <ltdl.h>
+
+static int  lt_dlinit_ =  -1;
 
 typedef void      (*G__scratch_all_t)        (void);
@@ -68,4 +70,6 @@
 //--------------------------------------------------------------------
 {
+  if(lt_dlinit_) 
+  { lt_dlinit_ = lt_dlinit(); }
   BText libraryName = "libcint";  
   BText libraryPath = "";
@@ -76,20 +80,26 @@
   #endif 
 
-  lt_dlhandle handleLib;
+  lt_dlhandle handleLib=0;
 
   // abro la DynLib
   handleLib = lt_dlopen( libraryPath );
+  BText reason( lt_dlerror( ) );
   if ( !handleLib ) 
   {
   //Std(BText("\nTRACE BLoadDynLib::Evaluator 3 lt_dlerror='")+lt_dlerror()+"'");
-    BText reason( lt_dlerror( ) );
     Warning(BText("[Cint_dynamic_linkage(\"")+libraryPath+"\")]"+" \n"
     "  lt_dlopen error:'"+reason+"'");
     return(false);
   } 
+  G__init_cint_ptr = reinterpret_cast<G__init_cint_t>( lt_dlsym( handleLib, "G__init_cint" ) );
+  if(!G__init_cint_ptr)
+  {
+    Warning(BText("[Cint_dynamic_linkage(\"")+libraryPath+"\")]"+" \n"
+    "  lt_dlopen error:'"+reason+"'");
+    return(false);     
+  }
   G__scratch_all_ptr = reinterpret_cast<G__scratch_all_t>( lt_dlsym( handleLib, "G__scratch_all" ) );
   G__lasterror_filename_ptr = reinterpret_cast<G__lasterror_filename_t>( lt_dlsym( handleLib, "G__lasterror_filename" ) );
   G__lasterror_linenum_ptr = reinterpret_cast<G__lasterror_linenum_t>( lt_dlsym( handleLib, "G__lasterror_linenum" ) );
-  G__init_cint_ptr = reinterpret_cast<G__init_cint_t>( lt_dlsym( handleLib, "G__init_cint" ) );
   G__set_errmsgcallback_ptr = reinterpret_cast<G__set_errmsgcallback_t>( lt_dlsym( handleLib, "G__set_errmsgcallback" ) );
   G__setautoconsole_ptr = reinterpret_cast<G__setautoconsole_t>( lt_dlsym( handleLib, "G__setautoconsole" ) );