Fix typo in commit 2a447ff.

diff --git a/src/runtime/uproc.scm b/src/runtime/uproc.scm
index b40b860ecc24de89a24cc4ab92f8f4faa6dbd1f6..446d0f1c8a3c975f8dfac979ae353a4d55d58dc7 100644 (file)
--- a/src/runtime/uproc.scm
+++ b/src/runtime/uproc.scm
@@ -347,7 +347,7 @@ USA.
 (define-integrable (%entity-extra entity)
   (system-pair-cdr entity))
 
-(define-integrable (%set-entity-extra! entity procdure)
+(define-integrable (%set-entity-extra! entity extra)
   (system-pair-set-cdr! entity extra))
 
 (define (entity? object)