simple... bug?

[Joe Corneli <jcorneli@math.utexas.edu>]

(defun squares (list-of-numbers)
  (let ((list-of-squares nil)
  (i 0)
  (L (length list-of-numbers)))
    (while (< i L)
      (setq list-of-squares (append list-of-squares 
				        (list (* (nth i list-of-numbers)
							     (nth i
  list-of-numbers)))))
      (setq i (1+ i))))
  list-of-squares)

For

(squares '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79
83 89 97))

I get

     *
(4 9 9 25 49 121 169 289 361 529 841 961 1369 1681 1849 2209 2809 3481
3721 4489 5041 5329 6241 6889 7921 9409)


Emacs is 21.3.1
OS is  Mac OS X 10.3


	      Am I making some _extremely_ subtle mistake?

--
Joe
-*-
The technological simulacrum creates its own reality,
which Baudrillard calls the "hyperreal," a kind of ersatz
parody of Plato's ideal world of forms.  fusionanomaly.net