--- a/ResourcePack.st	Thu Jul 25 18:04:04 2002 +0200
+++ b/ResourcePack.st	Thu Jul 25 18:06:01 2002 +0200
@@ -246,6 +246,7 @@
      ResourcePack fromFile:'SBrowser.rs'
      ResourcePack fromFile:'FBrowser.rs'
      ResourcePack fromFile:'Smalltalk.rs'
+     ResourcePack fromFile:'Smalltalk.rs' asFilename
     "
 !
 
@@ -651,7 +652,7 @@
         inStream := Smalltalk 
                         systemFileStreamFor:(dirName 
                                                 ifNil:[fileName]
-                                                ifNotNil:[dirName , '/' , fileName]).
+                                                ifNotNil:[dirName asFilename construct:fileName]).
     ].
     inStream isNil ifTrue:[
         "
@@ -812,6 +813,6 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.70 2001-12-04 13:22:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.71 2002-07-25 16:05:48 stefan Exp $'
 ! !
 ResourcePack initialize!