diff --git a/src/Soil-Core/SoilSkipList.class.st b/src/Soil-Core/SoilSkipList.class.st
index 408d0a2e..b623e126 100644
--- a/src/Soil-Core/SoilSkipList.class.st
+++ b/src/Soil-Core/SoilSkipList.class.st
@@ -9,7 +9,7 @@ Class {
 	#category : #'Soil-Core-Index-SkipList'
 }
 
-{ #category : #visiting }
+{ #category : #accessing }
 SoilSkipList >> acceptSoil: aSoilVisitor [ 
 	^ aSoilVisitor visitSkipList: self
 ]
diff --git a/src/Soil-Core/SoilSkipListIterator.class.st b/src/Soil-Core/SoilSkipListIterator.class.st
index ba8a9a65..20a13882 100644
--- a/src/Soil-Core/SoilSkipListIterator.class.st
+++ b/src/Soil-Core/SoilSkipListIterator.class.st
@@ -129,5 +129,5 @@ SoilSkipListIterator >> size [
 	headerPage := index headerPage.
 	^ (readVersion isNil or: [ headerPage lastTransaction > readVersion ]) 
 		ifTrue: [ super size] 
-		ifFalse: [ headerPage size  ]
+		ifFalse: [ index size  ]
 ]