--- a/ObjectView.st	Sat Jul 13 09:27:16 2013 +0200
+++ b/ObjectView.st	Sat Jul 13 22:33:12 2013 +0200
@@ -2986,9 +2986,7 @@
         (selection size == 1) ifTrue:[
             selection := selection first
         ] ifFalse:[
-            selection isEmpty ifTrue:[
-                selection := nil
-            ]
+            selection := selection asNilIfEmpty
         ]
     ] ifFalse:[
         (selection == anObject) ifTrue:[
@@ -3515,10 +3513,10 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.136 2013-06-25 22:22:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.137 2013-07-13 20:33:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.136 2013-06-25 22:22:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.137 2013-07-13 20:33:12 cg Exp $'
 ! !