From 2778c2d5b401de632cc768c16eb4b2d227e84328 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 25 Feb 2002 18:53:02 +0000
Subject: [PATCH] Fix another problem with NAME->VARIABLE being passed a
 string.

---
 v7/src/edwin/fileio.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index e33b0cf02..dae233af5 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fileio.scm,v 1.156 2001/12/18 21:35:09 cph Exp $
+;;; $Id: fileio.scm,v 1.157 2002/02/25 18:53:02 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2002 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -423,7 +423,7 @@ after you find a file.  If you explicitly request such a scan with
 				 (if (string-ci=? var "Eval")
 				     (evaluate val)
 				     (define-variable-local-value! buffer
-					 (name->variable var)
+					 (name->variable (intern var))
 				       (evaluate val))))))))
 		      (loop m4))))))))
 
-- 
2.25.1