--- a/SelectionInTreeView.st	Thu Feb 11 18:43:51 1999 +0100
+++ b/SelectionInTreeView.st	Thu Feb 11 18:45:00 1999 +0100
@@ -51,6 +51,8 @@
     This class obsoletes SelectionInTreeView, which is no longer
     maintained but kept for backward compatibility.
 
+    Notice: this class replaces the more-or-less obsolete SelectionInHierarchyView
+            class.
 
     [see also:]
         SelectionInTree
@@ -404,7 +406,7 @@
     "list with or without root
     "
     showRoot ~~ aState ifTrue:[
-        model showRoot:(showRoot := aState)
+        model showRoot:(showRoot := aState).
     ].
 !
 
@@ -2322,5 +2324,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.71 1999-02-05 11:00:47 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.72 1999-02-11 17:45:00 cg Exp $'
 ! !