Index: src/natools-s_expressions-atom_buffers.ads
==================================================================
--- src/natools-s_expressions-atom_buffers.ads
+++ src/natools-s_expressions-atom_buffers.ads
@@ -21,19 +21,19 @@
 -- It also provides an individual Octet accessor, used in parser internal   --
 -- recursive buffer.                                                        --
 ------------------------------------------------------------------------------
 
 with Natools.References;
+with Natools.Storage_Pools;
 
 package Natools.S_Expressions.Atom_Buffers is
    pragma Preelaborate (Atom_Buffers);
 
-   type Dummy_Access is access Boolean;
-      --  Used to access default storage pool
-
    package Atom_Refs is new Natools.References
-     (Atom, Dummy_Access'Storage_Pool, Dummy_Access'Storage_Pool);
+     (Atom,
+      Storage_Pools.Access_In_Default_Pool'Storage_Pool,
+      Storage_Pools.Access_In_Default_Pool'Storage_Pool);
 
    type Atom_Buffer is tagged private;
 
    procedure Preallocate (Buffer : in out Atom_Buffer; Length : in Count);
       --  Preallocate enough memory to append Length octets without