--- a/StandardSystemView.st	Wed Jun 14 18:55:10 2000 +0200
+++ b/StandardSystemView.st	Thu Jun 15 11:07:50 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview' }"
+
 TopView subclass:#StandardSystemView
 	instanceVariableNames:'label icon iconView iconLabel minExtent maxExtent sizeFixed
 		application windowEventsForApplication'
@@ -356,22 +358,22 @@
 
     <resource: #style (#ICON #ICON_FILE)>
 
-    |nm i|
+    |n nm i|
 
     (i := DefaultIcon) isNil ifTrue:[
-	i := self classResources at:'ICON' default:nil.
-	i isNil ifTrue:[
-	    OperatingSystem platformName == #win32 ifTrue:[
-		nm := 'stx_16x16.xpm'.
-	    ] ifFalse:[
-		nm := 'SmalltalkX.xbm'.
-	    ].
-	    nm := ClassResources at:'ICON_FILE' default:nm.
-	    i := Smalltalk imageFromFileNamed:nm forClass:self.
-	].
-	i notNil ifTrue:[
-	    DefaultIcon := i := i onDevice:Display
-	]
+        i := self classResources at:'ICON' default:nil.
+        i isNil ifTrue:[
+            OperatingSystem platformName == #win32 ifTrue:[
+                n := 'stx_16x16.xpm'.
+            ] ifFalse:[
+                n := 'SmalltalkX.xbm'.
+            ].
+            nm := ClassResources at:'ICON_FILE' default:n.
+            i := Smalltalk imageFromFileNamed:nm inPackage:'stx:libtool'.
+        ].
+        i notNil ifTrue:[
+            DefaultIcon := i := i onDevice:Display
+        ]
     ].
     ^ i
 
@@ -1469,6 +1471,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.130 2000-01-25 10:58:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.131 2000-06-15 09:07:50 cg Exp $'
 ! !
 StandardSystemView initialize!