--- a/XWorkstation.st	Tue Apr 03 14:22:06 2012 +0200
+++ b/XWorkstation.st	Fri Apr 06 21:28:57 2012 +0200
@@ -12382,7 +12382,9 @@
         "this is an incremental transfer. Wait for property change"
         incremental := true.
     ] ifFalse:[
-        'XWorkstation(error): unexpected targetID in selectionNotify: ' errorPrint.
+        'XWorkstation(error): unexpected targetID (' errorPrint.
+        (display atomName:propertyKey) errorPrint.
+        ')in selectionNotify: ' errorPrint.
         display errorPrintCR.
         done := true.
     ]].
@@ -12446,7 +12448,7 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.536 2012-04-02 09:38:42 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.537 2012-04-06 19:28:57 stefan Exp $'
 !
 
 version_SVN