Saving geometry on LW 7.0 OSX after delivery

Hi,

I'm trying to follow this advice
http://www.lispworks.com/kb/c3812530b97ad34f85256dbc0001a424.html to
save the geometry after the delivery

I have my main interface (main-window) in my package; the
top-level-interface-geometry-key
defined in it like this:

(defmethod top-level-interface-geometry-key ((self main-window))
  "Sets the key to read/write geometry position"
  (values 'main-window (product (slot-value self 'settings))))

The deliver function called from the package CL-USER:

(deliver 'mediaimport.ui:main
         (create-macos-application-bundle
          "~/Sources/lisp/mediaimport/Media Import.app"
          ;; Do not copy file associations...
          :document-types nil
          ;; ...or CFBundleIdentifier from the LispWorks bundle
          :identifier "com.github.fourier.mediaimport")
         5
         :interface :capi
         :keep-symbols '(mediaimport.ui::main-window) ;; why doesn't work ?
         :startup-bitmap-file nil)

However delivered image can't save geometry.
What did I wrong? In REPL geometry saved without problems.
I tried 
:keep-symbols '(main-window)
or change the symbol name - no success.


-- 
Br,
/Alexey

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html