diff --git a/packages/Sandblocks-Core/SBBlock.class.st b/packages/Sandblocks-Core/SBBlock.class.st index ab0b3768..98ff2cf6 100644 --- a/packages/Sandblocks-Core/SBBlock.class.st +++ b/packages/Sandblocks-Core/SBBlock.class.st @@ -1187,7 +1187,7 @@ SBBlock >> ensureVisible [ "FIXME: for insert cursors, the block bounds are not relevant but this does not belong here (assumption of selection that is not in ensureVisible)" self sandblockEditor cursor mode = #insert ifFalse: [ self allOwnersDo: [:o | - (o isKindOf: ScrollPane) ifTrue: [ + ((o isKindOf: ScrollPane) and: [o ~= self sandblockEditor canvas]) ifTrue: [ o scrollToShow: show. show := o fullBounds]]].