diff --git a/module/language/tree-il/inlinable-exports.scm b/module/language/tree-il/inlinable-exports.scm
index 76bb7da9f..d1fb74254 100644
--- a/module/language/tree-il/inlinable-exports.scm
+++ b/module/language/tree-il/inlinable-exports.scm
@@ -1,5 +1,5 @@
 ;;; Attaching inlinable definitions of exported bindings to modules
-;;; Copyright (C) 2021, 2022
+;;; Copyright (C) 2021, 2022, 2024
 ;;;   Free Software Foundation, Inc.
 ;;;
 ;;; This library is free software: you can redistribute it and/or modify
@@ -458,7 +458,7 @@
                                       (map
                                        (match-lambda
                                          ((kw name var)
-                                          (list kw name (assq-ref var bound))))
+                                          (list kw name (assq-ref bound var))))
                                        kws))))
                              (map recur* inits)
                              vars*
diff --git a/module/language/tree-il/peval.scm b/module/language/tree-il/peval.scm
index f6dc9a38d..f8fca0012 100644
--- a/module/language/tree-il/peval.scm
+++ b/module/language/tree-il/peval.scm
@@ -1759,7 +1759,7 @@ top-level bindings from ENV and return the resulting expression."
                 ;; is required by (and checked by) other parts of the
                 ;; compiler, e.g. tree-il-to-cps lowering.
                 (unless (equal? syms (match kw (((k name sym) ...) sym)))
-                  (error "internal error: unexpected kwarg syms"))
+                  (error "internal error: unexpected kwarg syms" kw syms))
 
                 (define (process-kw-args positional? args pbinds)
                   (match args