pragma Thread_Local_Storage on record?

[hanslad@gmail.com]

Hello,
 I am trying to use the pragma Thread_Local_Storage on a record as follows:
In specification file:

...
   package Local_Buffers is new Buffers(Any_Worker);
   package Local_Mailboxes is new Local_Buffers.Mailboxes;
   use Local_Buffers;
   use Local_Mailboxes;
   
   type Core is record
      Wait_Queue : Any_Buffer;
      Core_No    : UInt32;
      Current    : WorkerId ;
      Parent     : WorkerId ;
      Msgs       : UInt64;
   end record;
...

and body file goes like this:

...

   Curr_Core : Core;
   pragma Volatile(Curr_Core);
   pragma Thread_Local_Storage( Curr_Core);
...

I get the following errors:

cores.adb:27:04: Thread_Local_Storage variable "Curr_Core" is improperly initialized
cores.adb:27:04: only allowed initialization is explicit "null" or static expression

What am I doing wrong here?
If the code snippets I provided is not sufficient for to see the real problem, please give me a hint and I will provide more code.

Thanks!

HP