--- a/Workspace.st	Sun Oct 19 21:55:37 2008 +0200
+++ b/Workspace.st	Mon Oct 20 16:36:37 2008 +0200
@@ -818,7 +818,7 @@
 !
 
 doDrop:aDropContext
-self halt.
+    self halt:'should no longer be reached'.
     self drop:aDropContext
 
     "Modified: / 28-11-2006 / 16:14:51 / cg"
@@ -1627,5 +1627,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.192 2008-10-19 19:55:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.193 2008-10-20 14:36:37 cg Exp $'
 ! !