--- a/BinaryTree.st Sat Dec 05 12:18:21 2009 +0100
+++ b/BinaryTree.st Mon Dec 07 15:54:21 2009 +0100
@@ -379,7 +379,7 @@
^ exceptionValue value.
].
].
- treeRoot := newRoot
+ treeRoot := newRoot.
^ oldObject "sigh - collection protocol"
"
@@ -458,7 +458,11 @@
!BinaryTree class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/BinaryTree.st,v 1.9 2009-09-28 16:16:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/BinaryTree.st,v 1.10 2009-12-07 14:54:21 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libbasic2/BinaryTree.st,v 1.10 2009-12-07 14:54:21 cg Exp $'
! !
BinaryTree initialize!