diff --git a/guix/scripts/style.scm b/guix/scripts/style.scm
index 211980dc1c..0727ac1480 100644
--- a/guix/scripts/style.scm
+++ b/guix/scripts/style.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2021-2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2021-2024 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -304,7 +304,7 @@ (define (unquote->ungexp value)
            value))
       (('unquote-splicing x)
        (if (= quotation 1)
-           `(ungexp-splicing x)
+           `(ungexp-splicing ,x)
            value))
       (('quasiquote x)
        (list 'quasiquote (loop x (+ quotation 1))))
diff --git a/tests/style.scm b/tests/style.scm
index 5e38549606..3125f4cb1b 100644
--- a/tests/style.scm
+++ b/tests/style.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2021-2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2021-2024 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -500,6 +500,29 @@ (define file
       (load file)
       (read-package-field (@ (my-packages) my-coreutils) 'arguments 7))))
 
+(test-equal "gexpify arguments, substitute-keyword-arguments + unquote-splicing"
+  "\
+        (substitute-keyword-arguments (package-arguments coreutils)
+          ((#:make-flags flags
+            #~'())
+           #~(cons \"-DXYZ=yes\"
+                   #$@(if #t flags
+                          '())))))\n"
+  (call-with-test-package '((arguments
+                             (substitute-keyword-arguments
+                                 (package-arguments coreutils)
+                               ((#:make-flags flags ''())
+                                `(cons "-DXYZ=yes" ,@(if #t flags '()))))))
+    (lambda (directory)
+      (define file
+        (string-append directory "/my-packages.scm"))
+
+      (system* "guix" "style" "-L" directory "my-coreutils"
+               "-S" "arguments")
+
+      (load file)
+      (read-package-field (@ (my-packages) my-coreutils) 'arguments 6))))
+
 (test-equal "gexpify arguments, append substitute-keyword-arguments"
   "\
         (append (list #:tests? #f)