--- a/ToolApplicationModel.st	Mon Jul 08 11:49:38 2013 +0200
+++ b/ToolApplicationModel.st	Sat Jul 13 22:28:04 2013 +0200
@@ -131,7 +131,7 @@
 forgetInstance:anInstance
     instances notNil ifTrue:[
         instances remove:anInstance ifAbsent:[].
-        instances isEmpty ifTrue:[instances := nil].
+        instances := instances asNilIfEmpty.
     ].
 
     "Modified: / 4.2.1999 / 15:38:49 / cg"
@@ -1644,6 +1644,6 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.143 2013-03-19 12:12:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.144 2013-07-13 20:28:04 cg Exp $'
 ! !