--- a/FileBrowser.st	Tue May 14 14:09:09 2002 +0200
+++ b/FileBrowser.st	Tue May 14 14:22:41 2002 +0200
@@ -3562,14 +3562,15 @@
 
 openImagePreview
     [self loadImageAndPerform:[:img |
-                                |i top viewer|
+                                |i top viewer imgFileName|
 
                                 top := StandardSystemView new.
 
                                 viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
                                 i := img.
                                 top extent:200@200.
-                                top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
+                                imgFileName := img fileName asFilename.
+                                top label:(imgFileName directoryName asFilename baseName , '/' , imgFileName baseName).
                                 top openAndWait.
 
                                 (i width > 200 or:[i height > 200]) ifTrue:[
@@ -7806,5 +7807,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.467 2002-05-14 09:26:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.468 2002-05-14 12:22:41 cg Exp $'
 ! !