--- a/BTree.st	Fri Dec 11 10:30:13 2009 +0100
+++ b/BTree.st	Fri Dec 11 10:30:56 2009 +0100
@@ -689,7 +689,7 @@
 !
 
 valueForKey: aMagnitude ifPresent: aBlock
-	^ aBlock value: (self valueForKey: aMagnitude ifAbsent: [^ nil])
+        ^ aBlock value: (self valueForKey: aMagnitude ifAbsent: [nil])
 ! !
 
 !BTree::BTreeStringKeys class methodsFor:'as yet unclassified'!
@@ -805,5 +805,5 @@
 !BTree class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/BTree.st,v 1.2 2009-12-11 09:30:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BTree.st,v 1.3 2009-12-11 09:30:56 cg Exp $'
 ! !