diff --git a/src/audio-riff-wav-formats.adb b/src/audio-riff-wav-formats.adb
index 536a909..6d9a4bc 100644
--- a/src/audio-riff-wav-formats.adb
+++ b/src/audio-riff-wav-formats.adb
@@ -367,8 +367,8 @@ package body Audio.RIFF.Wav.Formats is
       Item   : out Channel_Configuration)
    is
       V : Channel_Configuration_Integer;
-      X : Channel_Configuration;
-      for X'Address use V'Address;
+      X : Channel_Configuration with
+        Address => V'Address;
    begin
       Channel_Configuration_Integer'Read (Stream, V);
       Item := X;
@@ -383,8 +383,8 @@ package body Audio.RIFF.Wav.Formats is
       Item   : Channel_Configuration)
    is
       V : Channel_Configuration_Integer;
-      X : Channel_Configuration;
-      for X'Address use V'Address;
+      X : Channel_Configuration with
+        Address => V'Address;
    begin
       X := Item;
       Channel_Configuration_Integer'Write (Stream, V);