--- a/Tools__BreakpointBrowser.st	Mon Jan 11 17:04:25 2010 +0100
+++ b/Tools__BreakpointBrowser.st	Mon Jan 11 17:33:33 2010 +0100
@@ -86,6 +86,12 @@
     MessagesAndTypes := self defaultListOfMessagesAndTypes
 ! !
 
+!BreakpointBrowser class methodsFor:'defaults'!
+
+defaultIcon
+    ^ ToolbarIconLibrary openBreakpointBrowserIcon
+! !
+
 !BreakpointBrowser class methodsFor:'interface specs'!
 
 windowSpec
@@ -113,6 +119,7 @@
           min: (Point 10 10)
           bounds: (Rectangle 0 0 680 691)
           menu: mainMenu
+          icon: defaultIcon
         )
         component: 
        (SpecCollection
@@ -1741,11 +1748,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.20 2009-11-22 10:09:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.21 2010-01-11 16:33:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.20 2009-11-22 10:09:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.21 2010-01-11 16:33:33 cg Exp $'
 ! !
 
 BreakpointBrowser initialize!