whats this part doing?  could you refer to these dialings by key? or will that not work?
 (if (or (= window :question-dialog) 
         (= window :system-preferences-dialog))
...)