--- a/extensions.st	Wed Feb 26 19:28:14 2014 +0100
+++ b/extensions.st	Thu Feb 27 09:47:48 2014 +0000
@@ -536,6 +536,24 @@
 
 !UserPreferences methodsFor:'accessing-SmallSense'!
 
+smallSenseCompletionEnabled
+
+    ^self at:#smallSenseCompletionEnabled ifAbsent:[self smallSenseEnabled]
+
+    "Created: / 27-02-2014 / 09:29:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-SmallSense'!
+
+smallSenseCompletionEnabled: aBoolean
+
+    ^self at:#smallSenseCompletionEnabled put: aBoolean
+
+    "Created: / 27-02-2014 / 09:29:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-SmallSense'!
+
 smallSenseEnabled
     "Return true if SmallSense is enabled"