little typo in HS

At http://www.lispworks.com/documentation/HyperSpec/Body/01_dae.htm 
there is a little code example:

(defun add-some (x)
   (defun add-some (x) (+ x 2))
     (+ x 1)) =>  ADD-SOME
   (mapcar 'add-some '(1 2 3 4))
=>  (2 3 4 5)
OR=>  (2 4 5 6)

I think the last line should be:

OR=>  (3 4 5 6)


Greetings,
André