--- a/FileBrowser.st	Thu Mar 28 14:00:09 2002 +0100
+++ b/FileBrowser.st	Mon Apr 08 11:50:30 2002 +0200
@@ -1676,9 +1676,11 @@
 !
 
 hasSnapshotSelection
-    ^ [ 
+    ^ [ |fn|
+
         (fileListView selection size == 1)
-        and:[ fileListView selectionValue first string withoutSeparators asFilename hasSuffix:'img' ]
+        and:[ ((fn := fileListView selectionValue first string withoutSeparators asFilename) hasSuffix:'img')
+              or:[fn hasSuffix:'sav'] ]
       ]
 
     "Created: / 4.8.1998 / 14:10:31 / cg"
@@ -7789,5 +7791,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.461 2002-02-26 13:04:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.462 2002-04-08 09:50:30 cg Exp $'
 ! !