Selecting an item in a list-panel

My user interface needs to select the next item in a list panel.  
Currently I'm doing:

....
(let* ((olditem (capi:choice-selected-item panel))
	((position (capi:search-for-item panel olditem)))
	((item (capi:get-collection-item table (1+ position)))))
;
(setf (capi:choice-selected-item table) item)
....

This seems a bit roundabout, as CAPI is having to do searches for the  
old and new items, but CAPI doesn't appear to provide functions  
"index of selected item" or "select nth item". Am I overlooking  
something?

Thanks,
David Johnson-Davies

+------------------------------------------------------------+
David Johnson-Davies, Human-Computer Interface Ltd
17 Signet Court, Swanns Road, Cambridge, CB5 8LA, England.

Tel: +44 1223 314934, Fax: +44 1223 462562
Email: david@interface.co.uk, Web: http://www.interface.co.uk/
+------------------------------------------------------------+