--- a/BTree.st	Wed Oct 12 19:16:13 2016 +0200
+++ b/BTree.st	Wed Oct 12 19:17:11 2016 +0200
@@ -704,9 +704,9 @@
 
 commonKeysWith: aNode keysAndValuesDo: aBlock flip: aBoolean
         | index key block leaf advanceKey last |
-        block := aBoolean 
-                    ifTrue: [ [:k :v1 :v2 | aBlock value: k value: v2 value: v1] ] 
-                    ifFalse: [ aBlock ].
+        aBoolean 
+             ifTrue: [ block := [:k :v1 :v2 | aBlock value: k value: v2 value: v1] ] 
+             ifFalse: [ block := aBlock ].
 
         index := 0.
         advanceKey :=
@@ -895,6 +895,10 @@
 
 !BTree class methodsFor:'documentation'!
 
+version
+    ^ '$Header$'
+!
+
 version_CVS
     ^ '$Header$'
 ! !