From 4f161c5cb14be053aee974f2d0d4ed683158b129 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Mon, 18 Aug 1997 20:19:18 +0000
Subject: [PATCH] *** empty log message ***

---
 ice-9/session.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ice-9/session.scm b/ice-9/session.scm
index f60e3453a..622e55e42 100644
--- a/ice-9/session.scm
+++ b/ice-9/session.scm
@@ -36,7 +36,7 @@
   "Search for bindings: apropos regexp {options= 'full 'shadow 'value}"
   (if (zero? (string-length rgx))
       "Empty string not allowed"
-      (let* ((match (regcomp rgx))
+      (let* ((match (make-regexp rgx))
 	     (modules (cons (current-module)
 			    (module-uses (current-module))))
 	     (separator #\tab)
@@ -64,7 +64,7 @@
 		 (lambda (oblist)
 		   (for-each
 		    (lambda (x)
-		      (cond ((regexec match (car x) #f)
+		      (cond ((regexp-exec match (car x))
 			     (display name)
 			     (display ": ")
 			     (display (car x))