From 2097efeecb47225ae71aa53fd554301e69205bf3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 16 Dec 1991 21:20:38 +0000
Subject: [PATCH] Update for changes to CMDL.

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

diff --git a/v7/src/rcs/logmer.scm b/v7/src/rcs/logmer.scm
index 72bccfe5c..628bdf5d3 100644
--- a/v7/src/rcs/logmer.scm
+++ b/v7/src/rcs/logmer.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/rcs/logmer.scm,v 1.3 1991/11/26 08:34:12 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/rcs/logmer.scm,v 1.4 1991/12/16 21:20:38 cph Exp $
 
 Copyright (c) 1988, 1991 Massachusetts Institute of Technology
 
@@ -41,7 +41,7 @@ MIT in each case. |#
 (define (rcs-directory-log output-file . directories)
   (format-to-file
    output-file
-   (fluid-let ((trace-port (cmdl/output-port (nearest-cmdl))))
+   (fluid-let ((trace-port (nearest-cmdl/port)))
      (let ((entries
 	    (sort-entries
 	     (let ((entries
-- 
2.25.1