--- a/SubCanvas.st	Mon Feb 13 09:53:25 2006 +0100
+++ b/SubCanvas.st	Mon Feb 13 18:08:49 2006 +0100
@@ -205,7 +205,6 @@
 !
 
 clientView:aView
-
     clientView notNil ifTrue:[
         clientView destroy
     ].
@@ -451,7 +450,9 @@
 !
 
 releaseAllComponents
-    clientView destroySubViews.
+    clientView notNil ifTrue:[
+        clientView destroySubViews.
+    ].
     builder := nil.
     spec    := nil.
     client  := nil.
@@ -580,5 +581,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.54 2006-02-10 15:57:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.55 2006-02-13 17:08:49 cg Exp $'
 ! !