diff --git a/Iceberg-TipUI-SnapshotBrowser/IceSnapshotBrowser.class.st b/Iceberg-TipUI-SnapshotBrowser/IceSnapshotBrowser.class.st
index 195af1b69d..e8fd3b8cbb 100644
--- a/Iceberg-TipUI-SnapshotBrowser/IceSnapshotBrowser.class.st
+++ b/Iceberg-TipUI-SnapshotBrowser/IceSnapshotBrowser.class.st
@@ -109,12 +109,6 @@ IceSnapshotBrowser >> allClassNames [
 
 ]
 
-{ #category : 'initialization' }
-IceSnapshotBrowser >> browserTitle [
-		
-	^ 'Snapshot Browser for: ' , titleString
-]
-
 { #category : 'listing' }
 IceSnapshotBrowser >> categorySelection [
 
@@ -389,15 +383,6 @@ IceSnapshotBrowser >> initializeSideSelectorPresenter [
 		yourself.
 ]
 
-{ #category : 'initialization' }
-IceSnapshotBrowser >> initializeWindow: aWindowPresenter [
-
-	aWindowPresenter
-		title: self browserTitle;
-		initialExtent: 1000 @ 700;
-		centered
-]
-
 { #category : 'initialization' }
 IceSnapshotBrowser >> isClassSide [
 	"Answer <true> if the receiver's class side is selected"
@@ -568,3 +553,9 @@ IceSnapshotBrowser >> visibleProtocols [
 		unselectAll.
 	^ (methods collect: [ :ea | ea category ]) asSet asSortedCollection
 ]
+
+{ #category : 'initialization' }
+IceSnapshotBrowser >> windowTitle [
+		
+	^ 'Snapshot Browser for: ' , titleString
+]