A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-spd.355.mcz

==================== Summary ====================

Name: System-spd.355
Author: spd
Time: 1 October 2010, 1:06:53.037 pm
UUID: 0d476cb0-127d-4563-a895-d2757ce29b52
Ancestors: System-dtl.354

REFACTOR: Added intention revealing helper method to AppRegistry class>>register:
Old: 
register: aProviderClass 
... 
        default := nil.  "so it'll ask for a new default..." 
... 

New: 
... 
        self askForNewDefaultOnNextRequest. 
... 

=============== Diff against System-dtl.354 ===============

Item was added:
+ ----- Method: AppRegistry class>>askForNewDefaultOnNextRequest (in category 'as yet unclassified') -----
+ askForNewDefaultOnNextRequest
+ 
+ 	default := nil.!

Item was changed:
  ----- Method: AppRegistry class>>register: (in category 'as yet unclassified') -----
  register: aProviderClass
+ 
+ 	(self registeredClasses includes: aProviderClass) ifTrue: [ ^ self ].
+ 	self askForNewDefaultOnNextRequest.	"if you're registering a new app you probably want to use it"
+ 	self registeredClasses add: aProviderClass.!
- 	(self registeredClasses includes: aProviderClass) ifFalse:
- 		[default := nil.  "so it'll ask for a new default, since if you're registering a new app you probably want to use it"
- 		self registeredClasses add: aProviderClass].!

Item was removed:
- ----- Method: Preferences class>>alwaysShowConnectionVocabulary (in category 'standard queries') -----
- alwaysShowConnectionVocabulary
- 	^ self
- 		valueOfFlag: #alwaysShowConnectionVocabulary
- 		ifAbsent: [false]!

Item was added:
+ ----- Method: Preferences class>>chasingBrowsers (in category 'standard queries') -----
+ chasingBrowsers
+ 	^ self
+ 		valueOfFlag: #chasingBrowsers
+ 		ifAbsent: [true]!

Item was added:
+ ----- Method: Preferences class>>mercuryPanel (in category 'standard queries') -----
+ mercuryPanel
+ 	^ self
+ 		valueOfFlag: #mercuryPanel
+ 		ifAbsent: [false]!

Item was removed:
- ----- Method: Preferences class>>useSmartLabels (in category 'standard queries') -----
- useSmartLabels
- 	^ self
- 		valueOfFlag: #useSmartLabels
- 		ifAbsent: [false]!

Item was removed:
- ----- Method: ReferenceStream>>project (in category 'writing') -----
- project
- 	"Return the project we are writing or nil"
- 
- 	(topCall respondsTo: #isCurrentProject) ifTrue: [^ topCall].
- 	(topCall respondsTo: #do:) ifTrue: [1 to: 5 do: [:ii | 
- 		((topCall at: ii) respondsTo: #isCurrentProject) ifTrue: [^ topCall at: ii]]].
- 	^ nil!