--- a/UserPreferences.st	Wed Sep 28 13:33:14 2011 +0100
+++ b/UserPreferences.st	Wed Sep 28 13:46:37 2011 +0100
@@ -746,7 +746,6 @@
     ^ self at:#soapLoggingLevel put:anIntegerBetween0_and_3
 ! !
 
-
 !UserPreferences methodsFor:'accessing-pref''d tools'!
 
 changeSetBrowserClass
@@ -2806,6 +2805,34 @@
     ^ 'menu actions'.
 !
 
+ignorePublicPrivateCategories
+    "used when loading dolphin code (which defines multiple categories per method);
+     if on, categories like public and private are ignored (if the method already has a category).
+     Turn this on, to get reasonable categories when loading dolphin code"
+
+    ^ self at:#ignorePublicPrivateCategories ifAbsent:true
+
+    "
+     UserPreferences current ignorePublicPrivateCategories
+    "
+
+    "Created: / 23-09-2011 / 19:49:37 / cg"
+!
+
+ignorePublicPrivateCategories:aBoolean
+    "used when loading dolphin code (which defines multiple categories per method);
+     if on, categories like public and private are ignored (if the method already has a category).
+     Turn this on, to get reasonable categories when loading dolphin code"
+
+    self at:#ignorePublicPrivateCategories put:aBoolean
+
+    "
+     UserPreferences current ignorePublicPrivateCategories
+    "
+
+    "Created: / 23-09-2011 / 19:49:54 / cg"
+!
+
 keepMethodSourceCode
     "when fetching the source from a file/cvs, should the source be kept in the image ?
      If on, the image will grow over time by about 10-20 Mb.
@@ -3682,7 +3709,7 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.289 2011/09/12 10:11:56 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.290 2011/09/23 17:50:05 cg Exp §'
 !
 
 version_SVN
@@ -3693,3 +3720,4 @@
 
 
 
+