#!/home/wfs/bin/gcl  -f
(in-package "SI")
(setq *load-verbose* nil)
(tkconnect)
(tk::wm :iconify ".")
(offer-choices
  (sloop::sloop for v in (cdr  si::*command-args*)
        appending (info-aux v *default-info-files*))
  *default-info-files*)
(tk::bind '.info "<Destroy>" '(bye))
(read)








