--- a/XWorkstation.st	Tue Jun 17 18:08:45 1997 +0200
+++ b/XWorkstation.st	Tue Jun 17 18:11:03 1997 +0200
@@ -3545,9 +3545,10 @@
 !
 
 clientMessage:event dataOffset:offs view:targetView
-    self halt.
+    self halt:'debug halt: unimplemented client message'.
 
     "Created: 4.4.1997 / 17:23:12 / cg"
+    "Modified: 17.6.1997 / 18:04:24 / cg"
 !
 
 clientMessage:event type:type format:format dataOffset:offs view:targetView
@@ -9340,6 +9341,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.247 1997-06-16 18:25:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.248 1997-06-17 16:11:03 cg Exp $'
 ! !
 XWorkstation initialize!