--- a/UserPreferences.st	Tue May 31 10:23:18 2016 +0100
+++ b/UserPreferences.st	Wed Jun 01 14:11:19 2016 +0100
@@ -163,6 +163,12 @@
     CurrentPreferences := nil
 !
 
+setCurrent:preferencesInstance
+    "sets the CurrentPreferences to preferencesInstance"
+
+    CurrentPreferences := preferencesInstance
+!
+
 syntaxColorKeys
     "returns the keys of syntax color items"