--- a/XWorkstation.st	Sat Jul 13 22:38:32 2013 +0200
+++ b/XWorkstation.st	Sat Jul 13 22:49:10 2013 +0200
@@ -10581,10 +10581,8 @@
     "no longer tell someone about selection changes"
 
     selectionHandlers notNil ifTrue:[
-	selectionHandlers remove:someone ifAbsent:nil.
-	selectionHandlers isEmpty ifTrue:[
-	    selectionHandlers := nil
-	]
+        selectionHandlers remove:someone ifAbsent:nil.
+        selectionHandlers := selectionHandlers asNilIfEmpty
     ].
 ! !
 
@@ -12821,11 +12819,11 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.566 2013-07-09 18:56:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.567 2013-07-13 20:49:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.566 2013-07-09 18:56:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.567 2013-07-13 20:49:10 cg Exp $'
 !
 
 version_SVN