From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Dec 2000 06:18:32 +0000 (+0000)
Subject: Fix typo in recent change.
X-Git-Tag: 20090517-FFI~3173
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b5aed2c2cda9f3ea2a1973ba14c1b0a73b5a4836;p=mit-scheme.git

Fix typo in recent change.
---

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))))))