--- a/AbstractSettingsApplication.st	Tue Sep 03 14:35:19 2013 +0200
+++ b/AbstractSettingsApplication.st	Tue Sep 03 15:14:52 2013 +0200
@@ -100,7 +100,8 @@
 		extendedWordSelectMode whitespaceWordSelectMode
 		enforceContentsDropForFiles selectAllWhenClickingBeyondEnd
 		showAcceptCancelBarInBrowser useCodeView2InTools
-		autoIndentInCodeView immediateCodeCompletion'
+		autoIndentInCodeView immediateCodeCompletion
+		codeCompletionOnControlKey'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -3952,6 +3953,14 @@
     ^ autoIndentInCodeView.
 !
 
+codeCompletionOnControlKey
+    codeCompletionOnControlKey isNil ifTrue:[
+        codeCompletionOnControlKey := false asValue.
+        codeCompletionOnControlKey onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ codeCompletionOnControlKey.
+!
+
 enforceContentsDropForFiles
     enforceContentsDropForFiles isNil ifTrue:[
         enforceContentsDropForFiles := true asValue.
@@ -18178,10 +18187,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.494 2013-09-03 12:16:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.495 2013-09-03 13:14:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.494 2013-09-03 12:16:15 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.495 2013-09-03 13:14:52 cg Exp $'
+! !
+