From 96fc0dc39758c754b8eaaa2a6cc92cb9711a0989 Mon Sep 17 00:00:00 2001
From: cdelaunay <cyrille.delaunay@2denker.de>
Date: Mon, 5 Feb 2024 16:52:21 +0100
Subject: [PATCH] adjusting fix

---
 .../ZnUrl.class/instance/parseFrom.defaultScheme..st   | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/repository/Zinc-Resource-Meta-Core.package/ZnUrl.class/instance/parseFrom.defaultScheme..st b/repository/Zinc-Resource-Meta-Core.package/ZnUrl.class/instance/parseFrom.defaultScheme..st
index c89449f8..06ddcf1f 100644
--- a/repository/Zinc-Resource-Meta-Core.package/ZnUrl.class/instance/parseFrom.defaultScheme..st
+++ b/repository/Zinc-Resource-Meta-Core.package/ZnUrl.class/instance/parseFrom.defaultScheme..st
@@ -1,13 +1,13 @@
 parsing
 parseFrom: string defaultScheme: defaultScheme
-	| start end index |
+	| start end index fragmentIndex|
 	start := 1.
 	end := string size.
-	(index := string indexOf: $#) > 0
+	(fragmentIndex := string indexOf: $#) > 0
 		ifTrue: [
-			self fragment: (self decodePercent: (string copyFrom: index + 1 to: end)).
-			end := index - 1 ].
-	((index := string indexOf: $?) > 0 and: [ index < (string indexOf: $#) ])
+			self fragment: (self decodePercent: (string copyFrom: fragmentIndex + 1 to: end)).
+			end := fragmentIndex - 1 ].
+	((index := string indexOf: $?) > 0 and: [ index < fragmentIndex ])
 		ifTrue: [
 			self query: (self parseQueryFrom: (ReadStream on: string from: index + 1 to: end)).
 			end := index - 1 ].