--- a/UserPreferences.st	Thu Dec 07 17:05:02 2006 +0100
+++ b/UserPreferences.st	Thu Dec 07 17:08:36 2006 +0100
@@ -55,6 +55,10 @@
 initializeDefaultPreferences
     DefaultPreferences := self new.
 
+    Color isNil "Smalltalk isStandAloneApp" ifTrue:[
+        ^ self.
+    ].
+
     #(
         #useNewChangesBrowser           false
         #useNewInspector                false
@@ -89,7 +93,7 @@
         #jsKeywordColor                 (Color 33 33 0)  
 
      ) pairWiseDo:[:k :v |
-        DefaultPreferences at:k put:v decodeAsLiteralArray.
+        DefaultPreferences at:k put:(v decodeAsLiteralArray).
     ].
 
     "/ I prefer red-underwave over red identifier ...
@@ -99,7 +103,7 @@
      self initializeDefaultPreferences
     "
 
-    "Modified: / 08-09-2006 / 16:12:21 / cg"
+    "Modified: / 07-12-2006 / 17:08:38 / cg"
 ! !
 
 !UserPreferences class methodsFor:'accessing'!
@@ -2370,5 +2374,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.183 2006-11-10 16:27:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.184 2006-12-07 16:08:36 cg Exp $'
 ! !