What sport should I practice today, random TODO generator: bugfixing help requested

[Franz Sommer <franz.sommer@franz.sommerp.net>]

Hi,

I have a small lisp code block evaluation problem generating org-mode style output.
Motivation and so on, see below. 

Would appreciate the communities help. 
Gladly will return feedback once my setup has advanced and you are interested.

Tks in advance, Franz


=======
= Goal:=
=======
Hava a random (weekly) generator of activities and / or todo items.  Think of everyday question like sports (shall I go cycling , swimming or running) May also be used for creativity teasers and any other kind of randomizable decission making.


(see why here: 
http://books.google.de/books?id=m5vQHbj2Vi0C&pg=PA71&dq=o+reilly+mind+hack+random&hl=de&sa=X&ei=4TH5Tv3lOcStsgaZ3dzgDw&ved=0CEMQ6AEwAg#v=onepage&q=o%20reilly%20mind%20hack%20random&f=false
)

=================================
= Current Stage / Actual Debug Problem  =
=================================
I like to get 
** TODO running
and not
| ** TODO running :random: |

What is wrong with my approach ?
(Yes I am new to lisp, but I hope that does not matter here to much. )

=======
=Code:=
=======

#+headers: :results value varbatim replace 
#+begin_src emacs-lisp 
	(defun table '())
		(add-to-list 'table "** TODO running :random:")    ;; later on some scheduling and tracking properties will be added
		(add-to-list 'table "** TODO cycling :random:")

	(setq returnlist '() )

	;;later a loop shall be here to say make list of 5 items  )

		(add-to-list 'returnlist (nth (random (length table)) table)))

(returnlist)
#+end_src

#+results:
| ** TODO Cereals :random: |