text-input-choice with popup-callback

The example examples/capi/choice/text-input-choice.lisp does not work as I expect. When pressing the down-arrow of the text-input-choice, the items get updated, but the length of the popup-list does not.

Example:

The first time I press the down-arrow, the length of the popup-list is 1 even though there are, say 7 items.

The second time I press the down-arrow, the length of the popup-list is 7 even though there are, say 4 items.

The third time I press the down-arrow, the length of the popup-list is 4 even though there are, say 5 items.

I was expecting the popup-list to have the same length as the number of items, or maybe shorter if using :visible-items-count.

I am on Mac OS X 10.5.8 using LW6.0.1.

Regards,

Sven Emtell