--- a/SelectionInTreeView.st	Wed Jun 26 01:03:37 2013 +0200
+++ b/SelectionInTreeView.st	Wed Jun 26 10:20:52 2013 +0200
@@ -1453,7 +1453,7 @@
 
     <resource: #keyboard ( #CursorLeft #CursorRight ) >
 
-    |idx node inc end|     
+    |node|     
 
     enabled ifFalse:[
         ^ self
@@ -2369,8 +2369,8 @@
 !
 
 selectedNodeBecomeChildOfPrevious
-    "make the selected node a child of the previous node
-    "
+    "make the selected node a child of the previous node"
+
     |idx node cprt nprt|
 
     ((node := self selectedNode) isNil or:[(cprt := node parent) isNil]) ifFalse:[
@@ -2441,9 +2441,9 @@
 !
 
 selectedNodesBecomeChildrenOfNext
-    "make the selected nodes children of the next node
-    "
-    |indices maxIndex nodes parent newParent|
+    "make the selected nodes children of the next node"
+
+    |indices maxIndex nodes newParent|
 
     nodes := self selectedNodes.
     nodes size == 0 ifTrue:[^ self].
@@ -2504,10 +2504,10 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.116 2013-06-25 21:22:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.117 2013-06-26 08:20:52 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.116 2013-06-25 21:22:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.117 2013-06-26 08:20:52 stefan Exp $'
 ! !