--- a/HierarchicalItem.st	Tue Aug 01 10:52:56 2000 +0200
+++ b/HierarchicalItem.st	Tue Aug 01 12:44:41 2000 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libwidg2' }"
+
 Object subclass:#HierarchicalItem
 	instanceVariableNames:'parent children isExpanded height width'
 	classVariableNames:''
@@ -1221,7 +1223,8 @@
 
 penguinIcon
     PenguinIcon isNil ifTrue:[
-        PenguinIcon := Image fromFile:'bitmaps/xpmBitmaps/misc_logos/linux_penguin.xpm'.
+        PenguinIcon := Smalltalk imageFromFileNamed:'xpmBitmaps/misc_logos/linux_penguin.xpm'
+                                 inPackage:'stx:goodies'
     ].
     ^ PenguinIcon
 ! !
@@ -1331,5 +1334,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.20 2000-03-11 12:20:30 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.21 2000-08-01 10:44:41 ca Exp $'
 ! !