From ab7faa73ef879548be2eaa462eb95c4c8ffd6ef2 Mon Sep 17 00:00:00 2001
From: Andreas Rumpf <rumpf_a@web.de>
Date: Thu, 30 Nov 2023 17:59:16 +0100
Subject: [PATCH] fixes #22852; real bugfix is tied to bug #22672 (#23013)

---
 lib/system/indices.nim | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/system/indices.nim b/lib/system/indices.nim
index f4a1403464..fb6151a744 100644
--- a/lib/system/indices.nim
+++ b/lib/system/indices.nim
@@ -112,8 +112,11 @@ proc `[]`*[Idx, T; U, V: Ordinal](a: array[Idx, T], x: HSlice[U, V]): seq[T] {.s
   ##   ```
   let xa = a ^^ x.a
   let L = (a ^^ x.b) - xa + 1
-  result = newSeq[T](L)
+  # Workaround bug #22852:
+  result = newSeq[T](if L < 0: 0 else: L)
   for i in 0..<L: result[i] = a[Idx(i + xa)]
+  # Workaround bug #22852
+  discard Natural(L)
 
 proc `[]=`*[Idx, T; U, V: Ordinal](a: var array[Idx, T], x: HSlice[U, V], b: openArray[T]) {.systemRaisesDefect.} =
   ## Slice assignment for arrays.