Fix thinko.

diff --git a/src/compiler/base/ctypes.scm b/src/compiler/base/ctypes.scm
index 1e5890a4145b33c9c15e2726ef0262c9fd2aca24..ae438cf9561c087007dcb2c20fe53f9fc07103c2 100644 (file)
--- a/src/compiler/base/ctypes.scm
+++ b/src/compiler/base/ctypes.scm
@@ -68,7 +68,7 @@ USA.
    (lambda (application)
      (case (application-type application)
        ((COMBINATION) '())
-       ((RETURN) (list (return/operand return)))
+       ((RETURN) (list (return/operand application)))
        (else (list (application-type application)))))))
 
 (define-integrable (application-block application)