--- a/TSTree.st	Tue Jun 25 13:22:55 2013 +0200
+++ b/TSTree.st	Tue Jun 25 13:22:58 2013 +0200
@@ -83,7 +83,15 @@
 	^ Array streamContents: [:s | self do: [:ea | s nextPut: ea]]
 ! !
 
-!TSTree methodsFor:'as yet unclassified'!
+!TSTree methodsFor:'enumerating'!
+
+do: aBlock
+        root notNil ifTrue: [root do: aBlock]
+
+    "Modified: / 08-08-2010 / 15:16:53 / cg"
+! !
+
+!TSTree methodsFor:'searching'!
 
 matchesForPrefix: aString
 	^ Array streamContents:
@@ -124,12 +132,12 @@
 		nodeCount = maxNodes ifTrue: [^ self]]
 ! !
 
-!TSTree methodsFor:'enumerating'!
+!TSTree methodsFor:'testing'!
 
-do: aBlock
-        root notNil ifTrue: [root do: aBlock]
+isFixedSize
+    "return true if the receiver cannot grow"
 
-    "Modified: / 08-08-2010 / 15:16:53 / cg"
+    ^ false
 ! !
 
 !TSTree::TSTreeNode class methodsFor:'as yet unclassified'!
@@ -294,5 +302,6 @@
 !TSTree class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/TSTree.st,v 1.3 2012-08-05 09:28:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TSTree.st,v 1.4 2013-06-25 11:22:58 cg Exp $'
 ! !
+