diff --git a/Doc/Manual/Tcl.html b/Doc/Manual/Tcl.html
index c12701ac9..d4bf91970 100644
--- a/Doc/Manual/Tcl.html
+++ b/Doc/Manual/Tcl.html
@@ -1283,7 +1283,7 @@ you can use it in Tcl like this:
 % x insert Lager
 % x get 1
 Stout
-% puts [l cget -length]
+% puts [x cget -length]
 3
 %
 </pre></div>