--- a/ResourcePack.st	Wed Dec 01 19:00:14 1999 +0100
+++ b/ResourcePack.st	Wed Dec 01 19:32:54 1999 +0100
@@ -210,10 +210,10 @@
     prj notNil ifTrue:[
         prjDir := prj directory.
     ] ifFalse:[
-        prjDir := 'packages/' , (pkg copyReplaceAll:$: with:$/) , '/resources'.
+        prjDir := 'packages/' , (pkg copyReplaceAll:$: with:$/).
         pathes := Smalltalk constructPathFor:prjDir.
         pathes size > 0 ifTrue:[
-            prjDir := pathes first , prjDir
+            prjDir := pathes first , '/' , prjDir
         ]
     ].
 
@@ -751,6 +751,6 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.56 1999-12-01 18:00:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.57 1999-12-01 18:32:54 cg Exp $'
 ! !
 ResourcePack initialize!