--- 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.