From efb3645f7ef3d16f659b05493bdce4e501401325 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 5 Dec 2023 19:33:59 +0100 Subject: [PATCH] Fix substring semantics. --- src/members-payments.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/members-payments.scm b/src/members-payments.scm index e6e7e2f..c803da8 100644 --- a/src/members-payments.scm +++ b/src/members-payments.scm @@ -89,7 +89,7 @@ msg)) (ci3 (substring-index "NULL" msg)) (vs3 (if ci3 - (substring msg (+ ci3 4) 4) + (substring msg (+ ci3 4) (+ ci3 4 4)) msg))) (or (string->number vs1) (string->number vs2)