diff --git a/foreign/c/primitives/kawa.scm b/foreign/c/primitives/kawa.scm index da44ff1..b52dc3a 100644 --- a/foreign/c/primitives/kawa.scm +++ b/foreign/c/primitives/kawa.scm @@ -15,7 +15,7 @@ (cond ((equal? type 'byte) (java.lang.Byte value)) ((equal? type 'uint8) - (java.lang.Int value)) + (java.lang.Integer (invoke (gnu.math.UInt value) 'toIntNum))) ((equal? type 'short) (java.lang.Short value)) ((equal? type 'unsigned-short)