From f49fa2d4bb7eaae529951ea3e9b763f07c3b9e6a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Oct 1998 00:31:17 +0000
Subject: [PATCH] Make sure that only namestrings are recorded in INFO-HISTORY.

---
 v7/src/edwin/info.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index c6c5018ad..51b4ef5af 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: info.scm,v 1.130 1998/03/11 22:06:53 cph Exp $
+;;;	$Id: info.scm,v 1.131 1998/10/14 00:31:17 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-98 Massachusetts Institute of Technology
 ;;;
@@ -989,7 +989,7 @@ The name may be an abbreviation of the reference name."
 
 (define (record-node file node point)
   (set-variable! info-history
-		 (cons (vector file node point)
+		 (cons (vector (->namestring file) node point)
 		       (ref-variable info-history))))
 
 (define (node-start start end)
-- 
2.25.1