--- a/TSTreeNode.st	Tue Dec 29 21:06:03 2015 +0100
+++ b/TSTreeNode.st	Wed Dec 30 00:18:31 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#TSTreeNode
 	instanceVariableNames:'key value low high equal'
 	classVariableNames:''
@@ -29,10 +31,10 @@
 !TSTreeNode methodsFor:'private'!
 
 canBeCulled
-	^ self value isNil
-		and: [low isNil]
-		and: [equal isNil]
-		and: [high isNil]
+        ^ self value isNil
+            and: [low isNil
+            and: [equal isNil
+            and: [high isNil]]]
 !
 
 cullNode: aNode
@@ -175,10 +177,10 @@
 !TSTreeNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TSTreeNode.st,v 1.1 2014-04-26 11:13:34 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/TSTreeNode.st,v 1.1 2014-04-26 11:13:34 vrany Exp $'
+    ^ '$Header$'
 ! !