From 481dcb553885553b971be9813fa91c8d91ed2110 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Apr 2005 18:39:46 +0000
Subject: [PATCH] Fix thinko.

---
 v7/src/edwin/evlcom.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index daeee4d47..797ab7ae2 100644
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: evlcom.scm,v 1.70 2005/04/01 05:07:07 cph Exp $
+$Id: evlcom.scm,v 1.71 2005/04/12 18:39:46 cph Exp $
 
 Copyright 1986,1989,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1997,1998,1999,2000,2001 Massachusetts Institute of Technology
@@ -347,8 +347,11 @@ Has no effect if evaluate-in-inferior-repl is false."
 		'()
 		(cons expression (loop)))))))))
 
-(define (evaluation-environment buffer #!optional global-ok?)
-  (let ((buffer (->buffer buffer))
+(define (evaluation-environment #!optional buffer global-ok?)
+  (let ((buffer
+	 (if (default-object? buffer)
+	     (current-buffer)
+	     (->buffer buffer)))
 	(non-default
 	 (lambda (object)
 	   (if (environment? object)
-- 
2.25.1