--- a/Launcher.st	Thu Oct 16 16:42:01 1997 +0200
+++ b/Launcher.st	Thu Oct 16 17:05:28 1997 +0200
@@ -2889,13 +2889,19 @@
     "open a dialog on viewStyle related settings"
 
     |listOfStyles resourceDir dir box 
-     list listView scrView infoLabel infoForwarder newStyle|
+     list listView scrView infoLabel infoForwarder newStyle
+     someRsrcFile|
 
     "
      search resources directory for a list of .style files ...
     "
-
-    resourceDir := Smalltalk getSystemFileName:'resources'.
+    someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
+    someRsrcFile notNil ifTrue:[
+	resourceDir := someRsrcFile asFilename directoryName
+    ] ifFalse:[
+        resourceDir := Smalltalk getSystemFileName:'resources'.
+    ].
+
     resourceDir isNil ifTrue:[
         self warn:'no styles found (missing ''resources'' directory)'.
         ^ self
@@ -4830,5 +4836,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.295 1997-10-15 11:16:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.296 1997-10-16 15:05:28 cg Exp $'
 ! !