diff --git a/lib/chibi/shell.scm b/lib/chibi/shell.scm
index 386ae998..34511d96 100644
--- a/lib/chibi/shell.scm
+++ b/lib/chibi/shell.scm
@@ -103,8 +103,10 @@
 ;;> tr, outputting "HELLO" to stdout:
 ;;>
 ;;> \schemeblock{
-;;> ((shell-pipe '(echo "hello") '(tr "a-z" "A-Z")) (lambda () #t)  (lambda () #t))
-;;> }
+;;> ((shell-pipe (shell-command '(echo "hello"))
+;;>              (shell-command '(tr "a-z" "A-Z")))
+;;>  (lambda () #t)
+;;>  (lambda () #t))}
 ;;>
 ;;> We can continue to build on these combinators, but for practical
 ;;> use a concise syntax is handy.  We provide the syntax