From fde062ac946a3f3d1c46d3b130d238cabe44be6e Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sun, 5 Jul 2015 18:21:25 -0700
Subject: [PATCH] Fix typo in commit 2a447ff.

---
 src/runtime/uproc.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/uproc.scm b/src/runtime/uproc.scm
index b40b860ec..446d0f1c8 100644
--- 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)
-- 
2.25.1