Make sure that only namestrings are recorded in INFO-HISTORY.

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index c6c5018ad4e17bb55eef95a7f43eca3d1181080d..51b4ef5affae56b0bd6580456550f4b99eb2caea 100644 (file)
--- 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))))
 \f
 (define (node-start start end)