From e8e17a02755bbd3a91845e9b999c4341df9e73b7 Mon Sep 17 00:00:00 2001
From: u6001 <u6001>
Date: Mon, 1 Jun 1992 16:50:47 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/edwin/artdebug.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 068cc9878..6bc612878 100644
--- a/v7/src/edwin/artdebug.scm
+++ b/v7/src/edwin/artdebug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.17 1992/02/04 04:02:16 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.18 1992/06/01 16:50:47 u6001 Exp $
 ;;;
 ;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -1149,11 +1149,13 @@ Prefix argument means do not kill the debugger buffer."
 	   (and (not (null? windows))
 		(apply min (map window-x-size windows)))))))
 
-(define (operation/debugger-failure string)
+(define (operation/debugger-failure port string)
+  port
   (message string)
   (editor-beep))
 
-(define (operation/debugger-message string)
+(define (operation/debugger-message port string)
+  port
   (message string))
 
 (define (debugger-presentation port thunk)
-- 
2.25.1