help.tour: use index-or-length

diff --git a/basis/help/tour/tour.factor b/basis/help/tour/tour.factor
index a10d91eae7b97db86e0cb0e5f8050522bb2251c2..b6ec0b6ddf433527bbae1454e6c3d6fc7b127429 100644 (file)
--- a/basis/help/tour/tour.factor
+++ b/basis/help/tour/tour.factor
@@ -935,7 +935,7 @@ This is an impractical example of exceptions, as Factor defines the { $link shor
 sequence and a number, and returns the minimum between the length of the sequence and the number. This allows us to write simply
 
 { $code "
-: safe-head ( seq n -- seq' ) short head ;" }
+: safe-head ( seq n -- seq' ) index-or-length head ;" }
 With this definition, we can make a word to read the first character of the first line:
 
 { $code "