--- a/AbstractFileBrowser.st	Tue Nov 18 14:17:42 2003 +0100
+++ b/AbstractFileBrowser.st	Tue Nov 18 17:10:46 2003 +0100
@@ -5668,25 +5668,31 @@
         nextPutLine:filename asString.
 
     isLink := filename isSymbolicLink.
+
+    buffer nextPutAll:'type:   '.
+
+    info := filename info.
     isLink ifTrue:[
+        info isNil ifTrue:[
+            buffer nextPutAll:'broken '.
+        ].
         buffer 
             nextPutAll:'symbolic link to: ';
             nextPutLine:(filename linkInfo path).
-    ].
-
-    info := filename info.
-    type := info type.
-    (longInfo and:[type == #regular]) ifTrue:[
-        fileOutput := filename fileType.
-    ].
-
-    s := ('type:   ').
-    fileOutput isNil ifTrue:[
-        s := s ,  type asString
     ] ifFalse:[
-        s := s , 'regular (' , fileOutput , ')'
-    ].
-    buffer nextPutLine:s.
+        type := info type.
+        (longInfo and:[type == #regular]) ifTrue:[
+            fileOutput := filename fileType.
+        ].
+
+        fileOutput isNil ifTrue:[
+            s := type asString
+        ] ifFalse:[
+            s := 'regular (' , fileOutput , ')'
+        ].
+        buffer nextPutLine:s.
+    ].
+
     isLink = true ifTrue:[
         info := filename linkInfo
     ] ifFalse:[
@@ -5701,8 +5707,8 @@
             fileSize > (1024*1024)  ifTrue:[
                 sizeString := sizeString , ' or ' , ((fileSize / (1024*1024)) asFixedPoint:1) printString , ' M'.
             ].
+            sizeString := sizeString , ')'. 
         ].
-        sizeString := sizeString , ')'. 
     ].
     buffer nextPutLine:sizeString.
 
@@ -6473,5 +6479,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.184 2003-11-18 12:07:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.185 2003-11-18 16:10:46 cg Exp $'
 ! !