Fix another typo in commit 2a447ff.

diff --git a/src/runtime/uproc.scm b/src/runtime/uproc.scm
index 446d0f1c8a3c975f8dfac979ae353a4d55d58dc7..5ccee8d6eccc855be2e84f781f3ac32bf699b359 100644 (file)
--- a/src/runtime/uproc.scm
+++ b/src/runtime/uproc.scm
@@ -342,7 +342,7 @@ USA.
   (system-pair-car entity))
 
 (define-integrable (%set-entity-procedure! entity procedure)
-  (system-pair-set-cdr! entity procedure))
+  (system-pair-set-car! entity procedure))
 
 (define-integrable (%entity-extra entity)
   (system-pair-cdr entity))