--- a/Filename.st	Mon Apr 28 23:02:01 1997 +0200
+++ b/Filename.st	Tue Apr 29 09:50:09 1997 +0200
@@ -1271,19 +1271,19 @@
     OperatingSystem isUNIXlike ifTrue:[
         typeString := 'regular'.
         stream := PipeStream readingFrom:('file ' , self pathName).
-        stream notNil ifTrue:[
-            typeString := stream contents asString.
-            stream close.
-            typeString := typeString copyFrom:(typeString indexOf:$:) + 1.
-            typeString := typeString withoutSeparators
-        ] ifFalse:[
-            "
-             could add some fallback code here, for systems, where no
-             file command is avaliable ...
-             ... or at least analyze directory info.
-            "
-	    typeString := 'file'.
-	]
+    ].
+    stream notNil ifTrue:[
+        typeString := stream contents asString.
+        stream close.
+        typeString := typeString copyFrom:(typeString indexOf:$:) + 1.
+        typeString := typeString withoutSeparators
+    ] ifFalse:[
+        "
+         could add some fallback code here, for systems, where no
+         file command is avaliable ...
+         ... or at least analyze directory info.
+        "
+        typeString := 'file'.
     ].
     ^ typeString
 
@@ -2218,5 +2218,5 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.86 1997-04-26 14:06:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.87 1997-04-29 07:50:09 cg Exp $'
 ! !