diff --git a/src/alr/alr-commands-show.adb b/src/alr/alr-commands-show.adb
index ebaff44f0..4730cd8a3 100644
--- a/src/alr/alr-commands-show.adb
+++ b/src/alr/alr-commands-show.adb
@@ -230,7 +230,7 @@ package body Alr.Commands.Show is
          Rel : constant Alire.Releases.Release  :=
            (if Current
             then Cmd.Root.Release
-            else Query.Find (Name, Versions, Query_Policy));
+            else Cmd.Find_Target_Release (Name, Versions, Current));
       begin
          Put_Line ("---");
          Put_Line ("layout: crate");