From eb1866f27241b872769687d62ca74b16172968cb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 May 1991 01:12:06 +0000
Subject: [PATCH] Fix think-o in M-x visit-tags-table.

---
 v7/src/edwin/tagutl.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/tagutl.scm b/v7/src/edwin/tagutl.scm
index 1904781fb..ddb1c7472 100644
--- a/v7/src/edwin/tagutl.scm
+++ b/v7/src/edwin/tagutl.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tagutl.scm,v 1.40 1991/05/04 20:14:04 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tagutl.scm,v 1.41 1991/05/15 01:12:06 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -58,10 +58,11 @@ A directory name is ok too; it means file TAGS in that directory."
   "FVisit tags table (default TAGS)"
   (lambda (filename)
     (let ((pathname (->pathname filename)))
-      (set-variable! tags-table-pathname
-		     (if (file-directory? pathname)
-			 (pathname-new-name pathname "TAGS")
-			 pathname)))))
+      (set-variable!
+       tags-table-pathname
+       (if (file-directory? pathname)
+	   (pathname-new-name (pathname-as-directory pathname) "TAGS")
+	   pathname)))))
 
 (define-command find-tag
   "Find tag (in current tag table) whose name contains TAGNAME.
-- 
2.25.1