diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st index e699d0c..0c8c063 100644 --- a/src/MiniDocs/LeDatabase.extension.st +++ b/src/MiniDocs/LeDatabase.extension.st @@ -73,7 +73,8 @@ LeDatabase >> errorCardFor: error [ icon: BrGlamorousVectorIcons cancel; margin: (BlInsets left: 10); action: [ :aButton | - aButton phlow spawnObject: localPage + aButton phlow spawnObject: localPage. + self errors removeKey: errorKey ]. overwriteButton := BrButton new aptitude: BrGlamorousButtonWithIconAndLabelAptitude; @@ -81,7 +82,8 @@ LeDatabase >> errorCardFor: error [ icon: BrGlamorousVectorIcons edit; action: [ :aButton | self removePage: localPage. - aButton phlow spawnObject: (self addPageFromMarkdeepUrl: (error at: errorKey at: 'remote')) + aButton phlow spawnObject: (self addPageFromMarkdeepUrl: (error at: errorKey at: 'remote')). + self errors removeKey: errorKey ]; margin: (BlInsets left: 10). backupButton := BrButton new