join tables columnwise columnames are ignored

[Uwe Brauer <oub@mat.ucm.es>]

Hi

Consider please the following to tables

#+begin_src 

,#+TBLNAME: test3
| Email           | State    |
|-----------------+----------|
| User1@gmail.com | Sent     |
| user2@gmail.com | not sent |


,#+TBLNAME: test4
| Email              | State       |
|--------------------+-------------|
| user3@gmail.coom   | not sent    |
| user4@gmail.com    | sent        |
#+end_src

I want to join them, adding columns, and the colnames, so I tried.


#+BEGIN_SRC emacs-lisp :var t1=test3 t2=test4 :colnames t
(cl-mapcar #'append t1 t2)
#+END_SRC



However this is the result. 
 #+begin_src 
 ,#+RESULTS:
 | User1@gmail.com | Sent     | user3@gmail.coom | not sent |
 | user2@gmail.com | not sent | user4@gmail.com  | sent     |
 #+end_src

What went wrong?

Thanks and regards

Uwe Brauer