extern int create_forth_task(SCENTABLE_ENTRY_TYPE *entry,
                             int                   priority,
                             int                   special_stack_size)
{
  char name[40];
  int  used_stack_size;
  pthread_t  doForthTaskId;
  int        task_id;
  used_stack_size = (special_stack_size != 0) ? special_stack_size : (160 * 1024) ;
  sprintf(name,"tForth%d",entry->toffset);

  task_id = taskSpawn(name,
		   priority,
		   0,
		   used_stack_size,
		   (FUNCPTR)do_forth,
		   (int) entry->config_ptr,
		   (int) entry->dict_ptr,
                   (int)entry->toffset,0,0,0,0,0,0,0);
                   
 if (task_id == ERROR) 
  {
    serr_log(SERR_ERROR,"cannot spawn tForth (%s)",
	     strerror(errnoGet()));
    return 1;
  }
 return task_id;   /* README:- Usually I see here Xenomai returns task_id as two or three digit number*/

}