--- a/AbstractFileBrowser.st	Wed Apr 02 23:48:59 2003 +0200
+++ b/AbstractFileBrowser.st	Wed Apr 02 23:50:57 2003 +0200
@@ -5454,18 +5454,17 @@
 !
 
 commonPrefixOfSelectedFiles
-
-    |selFiles stringCol firtsPre|
+    |selFiles stringCol firstPre|
 
     selFiles := self currentFileNameHolder value.
     selFiles isEmpty ifTrue:[^ nil].
 
     stringCol := selFiles collect:[:file | file asString].
-    firtsPre := stringCol at:1.
+    firstPre := stringCol at:1.
     stringCol from:2 do:[:el|
-         firtsPre :=  firtsPre commonPrefixWith:el.
+         firstPre := firstPre commonPrefixWith:el.
     ].
-    ^ firtsPre asFilename
+    ^ firstPre asFilename
 !
 
 currentFilesAreInSameDirectory
@@ -6127,5 +6126,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.128 2003-04-02 21:48:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.129 2003-04-02 21:50:57 cg Exp $'
 ! !