--- a/SubCanvas.st	Mon Feb 14 12:52:30 2000 +0100
+++ b/SubCanvas.st	Mon Feb 14 12:57:29 2000 +0100
@@ -376,7 +376,11 @@
 
 destroy
     client notNil ifTrue:[
-        client releaseAsSubCanvas.
+        client == self application ifTrue:[
+            client releaseAsSubCanvas.
+        ] ifFalse:[
+            client release
+        ].
     ].
 
     clientHolder notNil ifTrue:[
@@ -388,6 +392,8 @@
         specHolder := nil.
     ].
     super destroy.
+
+    "Modified: / 13.2.2000 / 23:31:12 / cg"
 !
 
 initialize
@@ -417,5 +423,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.23 2000-02-08 10:31:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.24 2000-02-14 11:57:29 cg Exp $'
 ! !