diff --git a/pkgs/compiler-lib/compiler/decompile.rkt b/pkgs/compiler-lib/compiler/decompile.rkt
index 150d3e2339..b8cf022993 100644
--- a/pkgs/compiler-lib/compiler/decompile.rkt
+++ b/pkgs/compiler-lib/compiler/decompile.rkt
@@ -257,7 +257,7 @@
            (case fmt
              [(compile)
               (define proc ((vm-eval `(load-compiled-from-port (open-bytevector-input-port ,uncompressed-code)))))
-              (decompile-chez-procedure (if (null? args) proc (proc args)))]
+              (decompile-chez-procedure (if (null? args) proc (apply proc args)))]
              [(interpret)
               (define bytecode (vm-eval `(fasl-read (open-bytevector-input-port ,uncompressed-code))))
               (list `(#%interpret ,(unwrap-chez-interpret-jitified bytecode)))]