Fix bug that caused dired buffer of "/" to have the name "*random*".

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 6f7ac10f429912962401566c8ec44d8d686e2145..e25f9ea162cd630feccdf1300ef989ee1657c406 100644 (file)
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.146 1991/03/22 00:21:51 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.147 1991/04/01 06:14:27 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -357,7 +357,9 @@ Leaves point at the beginning, mark at the end."
               (let ((directory (pathname-directory pathname)))
                 (and (pair? directory)
                      (car (last-pair directory))))))
-         (if (string? name) name "*random*")))))
+         (if (string? name)
+             name
+             (pathname->string pathname))))))
 
 (define (pathname->buffer pathname)
   (or (list-search-positive (buffer-list)