diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index bbbc9af7c..b19c0f61f 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-10  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* session.scm (apropos, apropos-fold):  regexp-exec does not
+	accept symbol arguments any more.  Thanks to Dale P. Smith for the
+	patch.
+
 2000-09-30  Gary Houston  <ghouston@arglist.com>
 
 	* posix.scm (setgrent): pass #t, not #f.  thanks to
diff --git a/ice-9/session.scm b/ice-9/session.scm
index a49fc5fed..3cde2e5fa 100644
--- a/ice-9/session.scm
+++ b/ice-9/session.scm
@@ -212,7 +212,7 @@ where OPTIONSET is one of debug, read, eval, print
 		 (lambda (oblist)
 		   (for-each
 		    (lambda (x)
-		      (cond ((regexp-exec match (car x))
+		      (cond ((regexp-exec match (symbol->string (car x)))
 			     (display name)
 			     (display ": ")
 			     (display (car x))
@@ -266,7 +266,7 @@ Fourth arg FOLDER is one of
 	   (lambda (module data)
 	     (let* ((obarray-filter
 		     (lambda (name val data)
-		       (if (and (regexp-exec match name)
+		       (if (and (regexp-exec match (symbol->string name))
 				(not (hashq-get-handle recorded name)))
 			   (begin
 			     (hashq-set! recorded name #t)