Fix accessibility check failure.

godunko · Jun 27, 2021 · 5815e7a · 5815e7a
1 parent 1be07b0
commit 5815e7a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/matreshka/source/web/spikedog/core/matreshka-servlet_dispatchers.adb b/matreshka/source/web/spikedog/core/matreshka-servlet_dispatchers.adb
@@ -8,7 +8,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 --                                                                          --
--- Copyright © 2014-2017, Vadim Godunko <[email protected]>                --
+-- Copyright © 2014-2021, Vadim Godunko <[email protected]>                --
 -- All rights reserved.                                                     --
 --                                                                          --
 -- Redistribution and use in source and binary forms, with or without       --
@@ -124,7 +124,7 @@ package body Matreshka.Servlet_Dispatchers is
               := URL.Split ('/', League.Strings.Skip_Empty);
             Index      : Positive          := 1;
             Current    : Dispatcher_Access;
-            Parent     : Dispatcher_Access := Self;
+            Parent     : Dispatcher_Access := Self.all'Unchecked_Access;
             Aux        : Dispatcher_Access;
             Position   : Dispatcher_Maps.Cursor;