*** clue/shells.lsp%    Fri Oct 29 19:33:11 1993
--- clue/shells.lsp     Fri Oct 29 19:33:11 1993
***************
*** 127,135 ****
  
  (defmethod (setf contact-state) :around (new-state (shell override-shell))
    ;; :iconic is equivalent to :withdrawn for override-shell
!   (call-next-method
!     (if (eq :iconic new-state) :withdrawn new-state)
!     shell))
  
  
  
--- 127,135 ----
  
  (defmethod (setf contact-state) :around (new-state (shell override-shell))
    ;; :iconic is equivalent to :withdrawn for override-shell
!   (if (eq :iconic new-state)
!     ((setf contact-state) :withdrawn shell)
!     (call-next-method)))