diff --git a/common-lisp.html.markdown b/common-lisp.html.markdown
index 76e7735b..28b5173b 100644
--- a/common-lisp.html.markdown
+++ b/common-lisp.html.markdown
@@ -502,7 +502,7 @@ nil                    ; false; also, the empty list: ()
 
 (fact 5) ; => 120
 
-(loop :for x :across "abc" :collect x)
+(loop :for x :across "abcd" :collect x)
 ; => (#\a #\b #\c #\d)
 
 (dolist (i '(1 2 3 4))