--- a/Smalltalk.st	Tue Aug 05 11:42:45 2008 +0200
+++ b/Smalltalk.st	Tue Aug 05 15:26:34 2008 +0200
@@ -6043,28 +6043,33 @@
 
     ((f := aFileName asFilename) isAbsolute
     or:[f isExplicitRelative]) ifTrue:[
-	"/
-	"/ dont use path for absolute or explicit .-relative file names
-	"/
-	^ aFileName
+        "/
+        "/ dont use path for absolute or explicit .-relative file names
+        "/
+        ^ aFileName
     ].
 
     aPath notNil ifTrue:[
-	aPath do:[:dirName |
-	    |realName dir|
-
-	    dir := dirName asFilename.
-	    aDirName notNil ifTrue:[
-		realName := (dir construct:aDirName) construct:aFileName.
-	    ] ifFalse:[
-		realName := dir construct:aFileName.
-	    ].
-	    (realName isReadable) ifTrue:[
-		^ realName name
-	    ]
-	].
-    ].
-
+        aPath do:[:dirName |
+            |realName dir|
+
+            dir := dirName asFilename.
+            aDirName notNil ifTrue:[
+                realName := (dir construct:aDirName) construct:aFileName.
+            ] ifFalse:[
+                realName := dir construct:aFileName.
+            ].
+            (realName isReadable) ifTrue:[
+                ^ realName name
+            ]
+        ].
+    ].
+
+"/ not needed - executing dir is always in SearchPath
+"/    realName := Filename currentDirectory construct:aFileName.
+"/    (realName isReadable) ifTrue:[
+"/        ^ realName name
+"/    ].
     ^ nil.
 
     "Modified: / 29.4.1999 / 15:06:43 / cg"
@@ -7086,5 +7091,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.849 2008-07-23 12:09:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.850 2008-08-05 13:26:34 cg Exp $'
 ! !