From baa47a940dbed8dce1186d072f7ff4f18a516f10 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Fri, 12 Mar 1999 09:53:30 +0000
Subject: [PATCH] Gragg

---
 ice-9/boot-9.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 5df0929d3..b6ea36ae3 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2826,7 +2826,7 @@
      e)))
 
 (define (environment-module env)
-  (let ((closure (and (pair? env) (car (last-pair? env)))))
+  (let ((closure (and (pair? env) (car (last-pair env)))))
     (and closure (procedure-property closure 'module))))