--- a/Model.st	Wed Feb 06 12:46:22 2008 +0100
+++ b/Model.st	Mon Feb 11 15:08:50 2008 +0100
@@ -178,7 +178,11 @@
     deps := dependents.
     deps notNil ifTrue:[
         deps isCollection ifTrue:[
-            deps copy do:aBlock
+            deps size == 1 ifTrue:[
+                aBlock value:deps anElement
+            ] ifFalse:[
+                deps copy do:aBlock
+            ]
         ] ifFalse:[
             aBlock value:deps
         ]
@@ -281,5 +285,5 @@
 !Model class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Model.st,v 1.37 2007-02-20 12:10:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Model.st,v 1.38 2008-02-11 14:08:50 cg Exp $'
 ! !