autostart terminal after init?

[clemens fischer <ino-news spotteswoode dnsalias org>]

Hi,

I have this code in ~/.sawfish/rc:

  (define-special-variable _init-sequence nil "sawfish has initialized")

  (define (spott-init what)
    (unless (or
              _init-sequence
              ; wm-spec-window-id
              batch-mode)
      (let ((first-term (concat xterm-program "-e bash &")))
        (case what
          (('terminal)
           (system first-term))
          (t 'unidentified-object)
          )
        (setq _init-sequence (1+ (or _init-sequence 0))))))
  (add-hook 'after-initialization-hook
      (lambda () (spott-init 'terminal))
      t)

and its meaning shall be:  "start an xterm first thing after sawfish
initialization".  But it doesn't work, although there are no errors.
What's wrong with it?  In "sawfish-client", _init-sequence has the value
1, so I strongly believe spott-init has run.


clemens