--- a/LibraryBuilder.st	Sun Apr 19 21:07:17 1998 +0200
+++ b/LibraryBuilder.st	Tue Apr 21 00:39:08 1998 +0200
@@ -995,11 +995,11 @@
 initialize
     "initializes all aspects"
 
-    |homeDir myAspects|
+    |topDir myAspects|
 
     super initialize.
 
-    homeDir := Filename homeDirectory asFilename.
+    topDir := (Filename currentDirectory asFilename construct:'..') construct:'..'.
 
     myAspects := IdentityDictionary new.
     aspects associationsDo: [:aspect| myAspects at: aspect key put: aspect value copy].
@@ -1010,8 +1010,8 @@
     self aspectsAt: #libraryClasses  putFirst: OrderedCollection new.
     self getLibraryClasses. "do check classes"
     self aspectsAt: #libraryDefines  putFirst: '-L/usr/X11/lib -Llib -Lbinary -L. -L/usr/local/lib -L/usr/lib -L/lib -lm -ldl -lXext -lX11'.
-    self aspectsAt: #targetDirectory putFirst: (homeDir construct: 'stx/libnew') name.
-    self aspectsAt: #sourceDirectory putFirst: (homeDir construct: 'stx') name.
+    self aspectsAt: #targetDirectory putFirst: (topDir pathName asFilename construct: 'libnew') pathName.
+    self aspectsAt: #sourceDirectory putFirst: topDir pathName.
 
     self aspectsAt: #standardHeaderPath                   putFirst: '/rules/stdHeader'.
     self aspectsAt: #commonDefinesPath                    putFirst: '/configurations/COMMON/defines'.
@@ -1064,5 +1064,5 @@
 !LibraryBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/LibraryBuilder.st,v 1.4 1998-04-18 22:59:32 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/LibraryBuilder.st,v 1.5 1998-04-20 22:39:08 cg Exp $'
 ! !