--- a/Model.st	Mon Jul 11 15:20:15 2005 +0200
+++ b/Model.st	Tue Jul 12 15:57:51 2005 +0200
@@ -83,6 +83,12 @@
     self dependents:nil
 !
 
+postDeepCopy
+    "release dependents after copying"
+
+    self dependents:nil
+!
+
 skipInstvarIndexInDeepCopy:index
     "a helper for deepCopy; only indices for which this method returns
      false are copied in a deep copy."
@@ -276,5 +282,5 @@
 !Model class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Model.st,v 1.35 2003-05-07 15:15:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Model.st,v 1.36 2005-07-12 13:57:51 cg Exp $'
 ! !