diff --git a/doc/scsh-manual/sre.tex b/doc/scsh-manual/sre.tex
index 8de3ab9..1910a6b 100644
--- a/doc/scsh-manual/sre.tex
+++ b/doc/scsh-manual/sre.tex
@@ -1020,7 +1020,7 @@ Some examples:
 
 ;;; Remove potentially offensive substrings from string S.
 (define (kill-matches re s)
-  (regexp-substitute/global #f s 'pre 'post))
+  (regexp-substitute/global #f re s 'pre 'post))
 
 (kill-matches (rx (| "Windows" "tcl" "Intel")) s)   ; Protect the children.\end{widecode}}