From da90fb0bc783f8b1a82ac567be7a5ee877d85206 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Jun 1987 03:31:43 +0000
Subject: [PATCH] Fix bugs in last revision.

---
 v7/src/compiler/rtlgen/rgproc.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/compiler/rtlgen/rgproc.scm b/v7/src/compiler/rtlgen/rgproc.scm
index 7a9eb445f..940b8759e 100644
--- a/v7/src/compiler/rtlgen/rgproc.scm
+++ b/v7/src/compiler/rtlgen/rgproc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgproc.scm,v 1.4 1987/06/23 02:17:02 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgproc.scm,v 1.5 1987/06/23 03:31:43 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -65,8 +65,8 @@ MIT in each case. |#
 		 (scfg*scfg->scfg!
 		  prefix
 		  (rtl:make-interpreter-call:set!
-		   register:environment
-		   (intern-scode-variable! block name)
+		   (rtl:make-fetch register:environment)
+		   (intern-scode-variable! block (variable-name name))
 		   expression))))))
 	 (procedure-names procedure)
 	 (procedure-values procedure)))))
-- 
2.25.1