Fix typo: set-entity-extra! was setting the wrong field.

diff --git a/v7/src/runtime/uproc.scm b/v7/src/runtime/uproc.scm
index 1128fcbb79ba736e35bb0ca4ecd8916001873824..3806331fe287f5626ed94b03316d068c82b83a05 100644 (file)
--- a/v7/src/runtime/uproc.scm
+++ b/v7/src/runtime/uproc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uproc.scm,v 1.1 1990/09/11 20:46:19 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uproc.scm,v 1.2 1991/06/10 22:45:37 jinx Exp $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -280,7 +280,7 @@ MIT in each case. |#
   (system-pair-set-car! entity procedure))
 
 (define-integrable (set-entity-extra! entity extra)
-  (system-pair-set-car! entity extra))
+  (system-pair-set-cdr! entity extra))
 
 (define (make-apply-hook procedure extra)
   (make-entity (lambda args (apply procedure (cdr args)))