--- a/TSMultiTree.st	Wed Apr 20 12:59:13 2016 +0200
+++ b/TSMultiTree.st	Fri Apr 22 09:24:39 2016 +0200
@@ -36,15 +36,10 @@
 "
 ! !
 
-!TSMultiTree methodsFor:'accessing'!
+!TSMultiTree class methodsFor:'queries'!
 
-at: aString put: anObject
-        aString isEmpty ifTrue: [self error: 'Keys cannot be empty'].
-        root isNil ifTrue: [root := TSMultiTreeNode key: aString first].
-        root lookupString: aString startingAt: 1 insert: anObject.
-        ^ anObject
-
-    "Created: / 26-04-2014 / 11:47:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+treeNodeClass
+    ^ TSMultiTreeNode
 ! !
 
 !TSMultiTree class methodsFor:'documentation'!