int method = 0;

         if (!interrupts)

                 ecl_disable_interrupts_env(the_env);

 #ifdef ECL_THREADS

        /* The out of memory condition may happen in more than one thread */

         /* But then we have to ensure the error has not been solved */

                        l = TOKEN_STRING_FILLP(ECL_CONS_CAR(pool));

                }

                if (l < ECL_MAX_STRING_POOL_SIZE) {

                        if (TOKEN_STRING_DIM(string) > 32*ECL_BUFFER_STRING_SIZE) {

                                /* String has been enlarged. Cut it. */

 #ifdef ECL_UNICODE

                                string = ecl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE);

 #endif

                        }

                        TOKEN_STRING_FILLP(string) = l+1;

                        env->string_pool = CONS(string, pool);

                }