Index: frames.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/frames.lisp,v
retrieving revision 1.127
diff -u -r1.127 frames.lisp
--- frames.lisp	4 Mar 2007 22:30:19 -0000	1.127
+++ frames.lisp	15 Mar 2007 17:34:12 -0000
@@ -1577,20 +1577,21 @@
 	  (:presentation (&key presentation window event x y)
 	    (let ((dest-translator (find-dest-translator presentation window
 							 x y)))
-	      (when feedback-activated
-		(do-feedback (last-window) (last-x) (last-y) :unhighlight))
-	      (setq feedback-activated t
-		    last-event event)
-	      (when last-presentation
-		(do-hilite last-presentation (last-window) :unhighlight))
-	      (setq last-presentation presentation
-		    feedback-fn (feedback dest-translator)
-		    hilite-fn (highlighting dest-translator))
-	      (do-hilite presentation window :highlight)
-	      (do-feedback window x y :highlight)
-	      (document-drag-n-drop dest-translator presentation
-				    context-type frame event window
-				    x y)))
+              (when dest-translator
+                (when feedback-activated
+                  (do-feedback (last-window) (last-x) (last-y) :unhighlight))
+                (setq feedback-activated t
+                      last-event event)
+                (when last-presentation
+                  (do-hilite last-presentation (last-window) :unhighlight))
+                (setq last-presentation presentation
+                      feedback-fn (feedback dest-translator)
+                      hilite-fn (highlighting dest-translator))
+                (do-hilite presentation window :highlight)
+                (do-feedback window x y :highlight)
+                (document-drag-n-drop dest-translator presentation
+                                      context-type frame event window
+                                      x y))))
 	  (:pointer-motion (&key event window x y)
 	    (when feedback-activated
 	      (do-feedback (last-window) (last-x) (last-y) :unhighlight))
