label widgets are too high

This is a small problem, but as a warmup: When I make a set of labels in
a vbox, the height of the labels are quite high. For instance, this app 
produces a window of size 39 x 176 excluding frame and title-bar:

(cells:defmodel my-app (cells-gtk:gtk-app)
  ()
  (:default-initargs
      :md-name :my-app
    :position :center
    :kids (cells:c? (cells:the-kids (cells-gtk:mk-vbox  :kids
(cells-gtk:kids-list?

(cgtk:mk-label :text "haha")

(cgtk:mk-label :text "hihi")
                                                               ))))))

This is a small problem, but as a warmup: When I make a set of labels in
a vbox, the height of the labels are quite high. For instance, this app 
produces a window of size 39 x 176 excluding frame and title-bar:

(cells:defmodel my-app (cells-gtk:gtk-app)
  ()
  (:default-initargs
      :md-name :my-app
    :position :center
    :kids (cells:c? (cells:the-kids (cells-gtk:mk-vbox  :kids