diff --git a/src/NewTools-MethodBrowsers/StMessageBrowser.class.st b/src/NewTools-MethodBrowsers/StMessageBrowser.class.st
index 934761d7..ea9891a1 100644
--- a/src/NewTools-MethodBrowsers/StMessageBrowser.class.st
+++ b/src/NewTools-MethodBrowsers/StMessageBrowser.class.st
@@ -114,18 +114,6 @@ StMessageBrowser class >> openMessageList: messageList name: aString autoSelect:
 
 ]
 
-{ #category : 'accessing' }
-StMessageBrowser class >> preferredExtent [
-
-	^ preferredExtent ifNil: [ preferredExtent := self defaultPreferredExtent ]
-]
-
-{ #category : 'accessing' }
-StMessageBrowser class >> preferredExtent: aPoint [
-
-	preferredExtent := aPoint
-]
-
 { #category : 'tool registration' }
 StMessageBrowser class >> registerToolsOn: registry [
 
diff --git a/src/NewTools-Playground/StPlaygroundPagePresenter.class.st b/src/NewTools-Playground/StPlaygroundPagePresenter.class.st
index 466671a2..863d33f4 100644
--- a/src/NewTools-Playground/StPlaygroundPagePresenter.class.st
+++ b/src/NewTools-Playground/StPlaygroundPagePresenter.class.st
@@ -328,15 +328,6 @@ StPlaygroundPagePresenter >> page [
 	^ page
 ]
 
-{ #category : 'private' }
-StPlaygroundPagePresenter >> preferredExtent: aSize [
-
-	(self window isMaximized 
-		or: [ self window isMinimized ])
-		ifTrue: [ ^ self ].
-	self class preferredExtent: aSize
-]
-
 { #category : 'actions' }
 StPlaygroundPagePresenter >> removeAllBindings [