--- a/AbstractSettingsApplication.st	Fri May 16 15:19:13 2014 +0200
+++ b/AbstractSettingsApplication.st	Fri May 16 15:19:28 2014 +0200
@@ -2227,6 +2227,35 @@
     ^ ObjectMemory supportsJustInTimeCompilation
 ! !
 
+!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'help specs'!
+
+flyByHelpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl    
+    "
+
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+#changeFileName
+'The name of the file in which changes are recorded (for the Changebrowser)'
+
+#logDoits
+'Also record doIt evaluations in the change file'
+
+#updChanges
+'Record code changes (classes and methods) in the change file'
+
+)
+! !
+
 !AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
 
 defaultIcon
@@ -2304,16 +2333,18 @@
                   (SpecCollection
                      collection: (
                       (CheckBoxSpec
-                         label: 'Log compiles in Changefile'
+                         label: 'Log changed classes and methods in the Changefile'
                          name: 'CheckBox1'
                          layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
+                         activeHelpKey: updChanges
                          model: updChanges
                          translateLabel: true
                        )
                       (CheckBoxSpec
-                         label: 'Log doIts in Changefile'
+                         label: 'Log doIts in the Changefile'
                          name: 'CheckBox2'
                          layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
+                         activeHelpKey: logDoits
                          model: logDoits
                          translateLabel: true
                        )
@@ -2321,12 +2352,14 @@
                          label: 'Changefile Name:'
                          name: 'ChangefileNameLabel'
                          layout: (AlignmentOrigin 239 0 80 0 1 0.5)
+                         activeHelpKey: changeFileName
                          translateLabel: true
                          adjust: right
                        )
-                      (InputFieldSpec
-                         name: 'ChangeFileNameEntryField'
+                      (FilenameInputFieldSpec
+                         name: 'FilenameEntryField1'
                          layout: (LayoutFrame 237 0 65 0 0 1 95 0)
+                         activeHelpKey: changeFileName
                          model: changeFileName
                          immediateAccept: true
                          acceptOnReturn: true
@@ -2364,17 +2397,22 @@
     |chgFile|
 
     chgFile := self changeFileName value.
-    currentUserPrefs changeFileName isNil ifTrue:[
-        "/ had the default
-        chgFile = ObjectMemory nameForChanges ifFalse:[
-            ObjectMemory nameForChanges:chgFile.
-            currentUserPrefs changeFileName:chgFile
-        ]
+    chgFile isEmptyOrNil ifTrue:[
+        "/ back to default.
+        currentUserPrefs changeFileName:nil
     ] ifFalse:[
-        "/ had a value before
-        chgFile = currentUserPrefs changeFileName ifFalse:[
-            ObjectMemory nameForChanges:chgFile.
-            currentUserPrefs changeFileName:chgFile
+        currentUserPrefs changeFileName isNil ifTrue:[
+            "/ had the default
+            chgFile = ObjectMemory nameForChanges ifFalse:[
+                ObjectMemory nameForChanges:chgFile.
+                currentUserPrefs changeFileName:chgFile
+            ]
+        ] ifFalse:[
+            "/ had a value before
+            chgFile = currentUserPrefs changeFileName ifFalse:[
+                ObjectMemory nameForChanges:chgFile.
+                currentUserPrefs changeFileName:chgFile
+            ].
         ].
     ].
     Smalltalk logDoits:self logDoits value.
@@ -18094,10 +18132,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.538 2014-05-16 13:07:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.539 2014-05-16 13:19:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.538 2014-05-16 13:07:38 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.539 2014-05-16 13:19:28 cg Exp $'
+! !
+