From 539d12018bac8e7e3634201a6d9b6d898f34d469 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 May 2001 02:11:44 +0000
Subject: [PATCH] Fix thinko in previous fix.

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

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 1f4db8961..a09132862 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: prompt.scm,v 1.195 2001/05/09 18:10:21 cph Exp $
+;;; $Id: prompt.scm,v 1.196 2001/05/10 02:11:44 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -272,7 +272,8 @@
 	   (string-table-completions string-table string))
 	 (lambda (string)
 	   (let ((default (list 'DEFAULT)))
-	     (not (eq? (string-table-get string-table string default)
+	     (not (eq? (string-table-get string-table string
+					 (lambda (index) index default))
 		       default))))
 	 'CASE-INSENSITIVE-COMPLETION? (string-table-ci? string-table)
 	 options))
-- 
2.25.1