--- a/FileBrowserV2SettingsAppl.st	Tue Apr 10 16:32:29 2007 +0200
+++ b/FileBrowserV2SettingsAppl.st	Tue Apr 10 16:33:28 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 AbstractSettingsApplication subclass:#FileBrowserV2SettingsAppl
@@ -363,11 +362,14 @@
                 currentUserPrefs
             ].
     aspectList := AbstractFileBrowser userPreferencesAspectList.
-    aspectList do:[:anAspect | |value|
+    aspectList keysDo:[:anAspect |
+        |value|
         value := (receiver perform:anAspect) value.
         (self perform:anAspect) value:value
     ].
     self modifiedChannel value:false
+
+    "Modified: / 03-04-2007 / 08:45:12 / cg"
 ! !
 
 !FileBrowserV2SettingsAppl methodsFor:'aspects'!
@@ -563,16 +565,18 @@
             ].
 
     aspectList := AbstractFileBrowser userPreferencesAspectList.
-    aspectList do:[ :anAspect |
+    aspectList keysDo:[:anAspect |
         (self perform:anAspect) value ~= (receiver perform:anAspect) value ifTrue:[ 
             ^ true
         ]
     ].
     ^ false
+
+    "Modified: / 03-04-2007 / 08:45:27 / cg"
 ! !
 
 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.21 2005-10-05 11:36:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.22 2007-04-10 14:33:28 cg Exp $'
 ! !