[plt-scheme] Problem of type

Hello,

I have a list which contains scheme expressions :

code : '((define (...)) (+ 3 4) ...)

And i want to insert each elements from code in a text%

Thus, i do a loop :

(for-each (labmda (e)
                  (send text insert e))
          code)

My problem is that e isn't a string. Not a symbol and not recognize
like a list.
I can't do a (symbol->string e) or a (list->string e).

How insert each elements in my text% ?

Thanks,
Laurent