toggle-action :active t is not checked

Hello,

I'm making my first CLG program, and have a bit of code very similar to
the ui-manager example in testgtk.lisp.  Here is a snippet:

:action (make-instance 'gtk:toggle-action
	       :name "ShowBonds" :label "_Bonds" :active t
	       :tooltip "Show bonds"
	       :callback (lambda (active) (format *standard-output* "Show
bonds: ~a~%" active))

Even though I specify :active t, the menu item is not toggled true at
startup.  The callback IS called when the window comes up, but in the
callback active=NIL.  I can than select it with the mouse and active=T.

I can't see any way to programmatically select/deselect the
toggle-action.  Is there a function somewhere I am missing?

-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642