David T. Lewis uploaded a new version of Services-Base to project The Trunk:
http://source.squeak.org/trunk/Services-Base-dtl.63.mcz

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

Name: Services-Base-dtl.63
Author: dtl
Time: 24 November 2017, 6:09:46.207676 pm
UUID: 5d6623aa-6db1-45f3-9e1a-2bf881e75ccf
Ancestors: Services-Base-ul.62

Remove unnecessary references to global World.

=============== Diff against Services-Base-ul.62 ===============

Item was changed:
  ----- Method: Requestor>>getMethodBody (in category 'requests') -----
  getMethodBody
+ 	| m world |
- 	| m |
  	m := FillInTheBlankMorph new.
  	m setQuery: 'Please enter the full body of the method you want to define' 
  		initialAnswer:  self class sourceCodeTemplate
  		answerExtent: 500 at 250
  		acceptOnCR: false. 
+ 	world := Project current world.
+ 	world addMorph: m centeredNear: world activeHand position.
- 	World addMorph: m centeredNear: World activeHand position.
  	^ m getUserResponse.!

Item was changed:
  ----- Method: Requestor>>getSelection (in category 'requests') -----
  getSelection
  	"Sorry to feedle with fillInTheBlankMorph innards, but I had to"
+ 	| text m world |
- 	| text m |
  	text := (MethodReference class: self getClass selector: self getSelector) sourceCode.
  	m := FillInTheBlankMorph new.
  	m setQuery: 'Highlight a part of the source code, and accept' initialAnswer: text
  		answerExtent: 500 at 250
  		acceptOnCR: true. 
+ 	world := Project current world.
+ 	world addMorph: m centeredNear: world activeHand position.
- 	World addMorph: m centeredNear: World activeHand position.
  	m getUserResponse.
  	^ m selection!

Item was changed:
  ----- Method: ServiceAction>>execute (in category 'executing') -----
  execute
+ 	^ action valueWithRequestor: Project current world focusedRequestor!
- 	^ action valueWithRequestor: World focusedRequestor!

Item was changed:
  ----- Method: ServiceAction>>executeCondition (in category 'executing') -----
  executeCondition
+ 	^ [condition valueWithRequestor: Project current world focusedRequestor]
- 	^ [condition valueWithRequestor: World focusedRequestor]
  		on: Error
  		do: [false]!