diff --git a/src/Soil-Core/SoilIndexConsistencyVisitor.class.st b/src/Soil-Core/SoilIndexConsistencyVisitor.class.st index 7948e1b2..bcd6f3f8 100644 --- a/src/Soil-Core/SoilIndexConsistencyVisitor.class.st +++ b/src/Soil-Core/SoilIndexConsistencyVisitor.class.st @@ -1,7 +1,7 @@ Class { #name : #SoilIndexConsistencyVisitor, #superclass : #SoilInstanceVisitor, - #category : #'Soil-Core-Model' + #category : #'Soil-Core-Visitor' } { #category : #api } @@ -17,5 +17,5 @@ SoilIndexConsistencyVisitor >> visitPagedFileIndexStore: aSoilPagedFileIndexStor 1 to: numberOfPages do: [ :pageIndex | | page | page := aSoilPagedFileIndexStore pageAt: pageIndex. (page right allSatisfy: #isZero) ifTrue: [ - (page index = numberOfPages) ifFalse: [ self halt ] ] ] + (page index = numberOfPages) ifFalse: [ Error signal: 'Index consistency check failed ' ] ] ] ] diff --git a/src/Soil-Core/SoilJournalConsistencyVisitor.class.st b/src/Soil-Core/SoilJournalConsistencyVisitor.class.st index d59e6465..c9224c52 100644 --- a/src/Soil-Core/SoilJournalConsistencyVisitor.class.st +++ b/src/Soil-Core/SoilJournalConsistencyVisitor.class.st @@ -26,7 +26,7 @@ SoilJournalConsistencyVisitor >> verifyDatabaseVersion: aSoilTransactionJournal "after initialization the database version should always be one larger than the one before" (entry value = (databaseVersion + 1)) ifFalse: [ - Error signal: 'nope' ]. + Error signal: 'Journal consistency check failed: #verifyDatabaseVersion:' ]. databaseVersion := entry value ] @@ -42,7 +42,7 @@ SoilJournalConsistencyVisitor >> verifyObjectIndexes: aSoilTransactionJournal [ at: entry objectId segment ifAbsentPut: [ entry objectId index - 1]. (newIndex >= oldIndex) ifFalse: [ - Error signal: 'nope' ]. + Error signal: 'Journal consistency check failed: #verifyObjectIndexes:' ]. segments at: entry objectId segment put: newIndex ]