From b5aed2c2cda9f3ea2a1973ba14c1b0a73b5a4836 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Dec 2000 06:18:32 +0000
Subject: [PATCH] Fix typo in recent change.

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

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 29ae49798..b26603062 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: debug.scm,v 1.54 2000/12/01 06:07:13 cph Exp $
+;;; $Id: debug.scm,v 1.55 2000/12/01 06:18:32 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-2000 Massachusetts Institute of Technology
 ;;;
@@ -1009,7 +1009,7 @@ The buffer below describes the current subproblem or reduction.
 		   (let loop ((default default-screen-geometry))
 		     (let ((geometry
 			    (prompt-for-string "Please enter a geometry"
-					       default-screen-geometry)))
+					       default)))
 		       (if (geometry? geometry)
 			   geometry
 			   (loop geometry))))))
-- 
2.25.1