--- a/STXInstaller.st Thu Jun 24 19:05:33 1999 +0200
+++ b/STXInstaller.st Mon Jun 28 13:46:55 1999 +0200
@@ -890,8 +890,14 @@
and:[(here asLowercase endsWith:'stx\binbc') not
and:[(here asLowercase endsWith:'projects\smalltalk') not
]]) ifTrue:[
- self warn:(resources string:'must be in the ''projects/smalltalk'' directory').
- ^ self
+ "/ double - check if some of my expected files exists here ...
+ ('../libbasic' asFilename exists
+ and:['../libbasic' asFilename isDirectory]) ifTrue:[
+ self warn:(resources string:'Oops - current directories name seems to not end with ''/projects/smalltalk''\\Assume its OK.' withCRs).
+ ] ifFalse:[
+ self warn:(resources string:'must be in the ''projects/smalltalk'' directory').
+ ^ self
+ ]
].
answer := self askForFullInstallation.