Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.1177
diff -r1.1177 slime.el
2372c2372,2373
<            (let ((id (incf (slime-continuation-counter))))
---
>            (let ((id      (incf (slime-continuation-counter)))
>                  (send-ok nil))
2374,2375c2375,2383
<              (slime-send `(:emacs-rex ,form ,package ,thread ,id))
<              (slime-recompute-modelines t)))
---
>              (unwind-protect
>                  (progn
>                    (slime-send `(:emacs-rex ,form ,package ,thread ,id))
>                    (setq send-ok t))
>                (unless send-ok
>                  (setf (slime-rex-continuations)
>                        (cdr (slime-rex-continuations)))
>                  (funcall continuation (list :abort)))
>                (slime-recompute-modelines t))))
