From 83f65113860e16c0cf8d2b8325de1c41f52d0a0e Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 2 Oct 2001 17:30:33 +0000
Subject: [PATCH] Fixed bug in uncase that prevented uncase from being pushed
 into submatches.

---
 scsh/rx/re.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/rx/re.scm b/scsh/rx/re.scm
index fd32c26..132e514 100644
--- a/scsh/rx/re.scm
+++ b/scsh/rx/re.scm
@@ -498,7 +498,7 @@
 			 (values re #f))))
 
 		  ((re-submatch? re)
-		   (receive (new-body body-changed?) (recur (re-submatch? re))
+		   (receive (new-body body-changed?) (recur (re-submatch:body re))
 		     (if body-changed?
 			 (values (%make-re-submatch new-body
 						    (re-submatch:pre-dsm re)