--- a/SelInTree.st	Sun Nov 01 13:57:46 1998 +0100
+++ b/SelInTree.st	Sat Nov 14 20:46:16 1998 +0100
@@ -89,14 +89,19 @@
 root:aRoot
     "set a new root
     "
+    |tree|
+
     root notNil ifTrue: [
-        root tree: nil
+        tree := root tree.
+        root tree:nil.
+    ] ifFalse:[
+        tree := self
     ].
     self stopRunningTasks.
 
     (root := aRoot) notNil ifTrue:[
+        root tree:tree.
         root parent:nil.
-        root tree: self.
     ].
     self listFromRoot.
     self changed:#list.
@@ -825,5 +830,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.19 1998-10-31 12:03:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.20 1998-11-14 19:46:16 cg Exp $'
 ! !

--- a/SelectionInTree.st	Sun Nov 01 13:57:46 1998 +0100
+++ b/SelectionInTree.st	Sat Nov 14 20:46:16 1998 +0100
@@ -89,14 +89,19 @@
 root:aRoot
     "set a new root
     "
+    |tree|
+
     root notNil ifTrue: [
-        root tree: nil
+        tree := root tree.
+        root tree:nil.
+    ] ifFalse:[
+        tree := self
     ].
     self stopRunningTasks.
 
     (root := aRoot) notNil ifTrue:[
+        root tree:tree.
         root parent:nil.
-        root tree: self.
     ].
     self listFromRoot.
     self changed:#list.
@@ -825,5 +830,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.19 1998-10-31 12:03:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.20 1998-11-14 19:46:16 cg Exp $'
 ! !