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)