TK opens two windows...

Hello! Look:

#----Begin
toplevel .principal

button .principal.ok -text "OK" -command {exit}
button .principal.test -text "test" -command {exit}

pack .principal.ok .principal.test
#----End

wish this_file.tcl opens two windows! The first is empty and the second
has the buttons... what could it be?

Thx! Bye!

.