From 95010e7a6e873ac7b6846b6a033f1e8ea41bac9a Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 26 Jul 2025 14:39:37 +0300
Subject: [PATCH] Fixing Kawa

---
 foreign/c/primitives/kawa.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/foreign/c/primitives/kawa.scm b/foreign/c/primitives/kawa.scm
index 8bad2c8..67fe021 100644
--- a/foreign/c/primitives/kawa.scm
+++ b/foreign/c/primitives/kawa.scm
@@ -180,13 +180,13 @@
                              'getClass)
                      'getName))
     (newline)
-    (invoke
-      (invoke
-        (invoke c-bytevector 'reinterpret INTEGER-MAX-VALUE)
-        'get
-        u8-value-layout
-        k)
-      'intValue)))
+    (invoke (java.lang.Byte 1)
+            'toUnsignedInt
+            (invoke
+              (invoke c-bytevector 'reinterpret INTEGER-MAX-VALUE)
+              'get
+              u8-value-layout
+              k))))
 
 (define pointer-value-layout
   (invoke (static-field java.lang.foreign.ValueLayout 'ADDRESS)