From a3c815c2ca64ee8fd4e7ce3f53f59b353a1f957a Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 23 Feb 2026 08:56:29 +0100
Subject: [PATCH 1/3] update list of contributors

---
 CONTRIBUTIONS.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CONTRIBUTIONS.md b/CONTRIBUTIONS.md
index 95e6307f..1bce0fa1 100644
--- a/CONTRIBUTIONS.md
+++ b/CONTRIBUTIONS.md
@@ -39,6 +39,7 @@ Add yourself to the list,
 * Andrea Ruffini Perico
 * Andrew Cox
 * Benjamin Newman
+* Christian Werner
 * Christoph Boss (@Kampfwurst)
 * Daniel Ziegenberg (@ziegenberg)
 * Devin Dean (@dd2594gh)

From eecc8c6126bee473d37b330083b40687774cd478 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 17 Feb 2026 08:16:16 +0100
Subject: [PATCH 2/3] global-functions: $Grep: add comment on :deserialize

---
 global-functions.rsc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/global-functions.rsc b/global-functions.rsc
index 45bb24d3..310ff99f 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -726,6 +726,8 @@
   }
 
   :do {
+    # Do *NOT* try :deserialize here to split lines. It can fail with
+    # scripts, and it *does* fail with global-functions!
     :local Line [ :pick $Input 0 [ :find $Input "\n" ] ];
     :if ([ :typeof [ :find $Line $Pattern ] ] = "num") do={
       :return $Line;

From 349ebd5ad6c80bd0aa66d733712aa1eaf81b7581 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 17 Feb 2026 12:14:43 +0100
Subject: [PATCH 3/3] global-functions: $Grep: use length from variable

---
 global-functions.rsc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/global-functions.rsc b/global-functions.rsc
index 310ff99f..d6be0781 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -728,11 +728,12 @@
   :do {
     # Do *NOT* try :deserialize here to split lines. It can fail with
     # scripts, and it *does* fail with global-functions!
-    :local Line [ :pick $Input 0 [ :find $Input "\n" ] ];
+    :local Len [ :find $Input "\n" ];
+    :local Line [ :pick $Input 0 $Len ];
     :if ([ :typeof [ :find $Line $Pattern ] ] = "num") do={
       :return $Line;
     }
-    :set Input [ :pick $Input ([ :find $Input "\n" ] + 1) [ :len $Input ] ];
+    :set Input [ :pick $Input ($Len + 1) [ :len $Input ] ];
   } while=([ :len $Input ] > 0);
 
   :return [];