--- a/WorkspaceApplication.st	Tue Mar 01 14:47:17 2005 +0100
+++ b/WorkspaceApplication.st	Tue Mar 01 16:47:54 2005 +0100
@@ -687,13 +687,20 @@
     ].
 
     #(
-        ('Hello_utf8.wsp'       'Hello'           #'utf8' )
-        ('Welcome.wsp'          'Welcome'         nil )
-        ('Setup.wsp'            'Setup'           nil )
-        ('Keyboard.wsp'         'Keyboard'        nil )
-        ('GettingStarted.wsp'   'Getting Started' nil )
-    ) triplesDo:[:file :title :forcedEncoding|
-        |pane encoding|
+        ('Hello_utf8.wsp'       HELLO_UTF_FILE  'Hello'           #'utf8' )
+        ('Welcome.wsp'          nil             'Welcome'         nil )
+        ('Setup.wsp'            nil             'Setup'           nil )
+        ('Keyboard.wsp'         nil             'Keyboard'        nil )
+        ('GettingStarted.wsp'   nil             'Getting Started' nil )
+    ) do:[:quadruple |
+        |file resKey title forcedEncoding pane encoding|
+
+        file := quadruple at:1.
+        resKey := quadruple at:2.
+        file := self classResources string:resKey default:file.
+
+        title := quadruple at:3.
+        forcedEncoding := quadruple at:4.
 
         path := (Smalltalk getSystemFileName:file).
 
@@ -1424,5 +1431,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.94 2005-01-26 16:53:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.95 2005-03-01 15:47:54 cg Exp $'
 ! !