--- a/SubCanvas.st	Fri Nov 07 14:31:25 1997 +0100
+++ b/SubCanvas.st	Sat Nov 08 15:42:57 1997 +0100
@@ -181,6 +181,18 @@
 
 !SubCanvas methodsFor:'initialization'!
 
+destroy
+    clientHolder notNil ifTrue:[
+        clientHolder removeDependent:self.
+        clientHolder := nil.
+    ].
+    specHolder notNil ifTrue:[
+        specHolder removeDependent:self.
+        specHolder := nil.
+    ].
+    super destroy.
+!
+
 initialize
     super initialize.
     self scrolledView:View new.
@@ -203,5 +215,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.5 1997-10-15 10:31:52 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.6 1997-11-08 14:42:57 ca Exp $'
 ! !