diff --git a/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/instance/mouseOpenHaloFor..st b/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/instance/mouseOpenHaloFor..st
index eac28d14..ff3bad14 100644
--- a/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/instance/mouseOpenHaloFor..st
+++ b/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/instance/mouseOpenHaloFor..st
@@ -9,5 +9,7 @@ mouseOpenHaloFor: aMorph
 		buttons: (self mapButtons: #(middle))
 		hand: self hand
 		stamp: 0.
-	aMorph invokeHaloOrMove: event.
+	(aMorph respondsTo: #defaultHaloDispatcher)
+		ifTrue: [aMorph defaultHaloDispatcher invokeHaloOrMove: event on: aMorph]
+		ifFalse: ["< Morphic-mt.1732 (6.0)" aMorph invokeHaloOrMove: event].
 	^ self hand halo
\ No newline at end of file
diff --git a/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/instance/spawnHand.st b/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/instance/spawnHand.st
index 384be1b4..17b1c0be 100644
--- a/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/instance/spawnHand.st
+++ b/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/instance/spawnHand.st
@@ -1,6 +1,15 @@
 utils
 spawnHand
 
-	self world addMorph: (self hand imageForm asMorph
+	| imageMorph |
+	imageMorph := self hand imageForm asMorph
 		topLeft: self hand fullTopLeft;
-		yourself).
\ No newline at end of file
+		yourself.
+	
+	(self world respondsTo: #addMorphFrontInLayer:)
+		ifFalse: ["< Morphic-mt.1726 (6.0)"
+			self world addMorph: imageMorph.
+			^ self].
+	
+	imageMorph morphicLayerNumber: Morph frontmostLayer.
+	self world addMorphFrontInLayer: imageMorph.
\ No newline at end of file
diff --git a/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/methodProperties.json b/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/methodProperties.json
index 4da3756e..60f0986f 100644
--- a/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/methodProperties.json
+++ b/SmalltalkSources/SBE-Extract.package/SBEWorldHelper.class/methodProperties.json
@@ -60,7 +60,7 @@
 		"mouseLeave:" : "tobe 10/3/2019 20:00",
 		"mouseLeaveDragging:" : "tobe 10/3/2019 20:00",
 		"mouseMoveTo:buttons:in:" : "ct 10/18/2019 10:32",
-		"mouseOpenHaloFor:" : "ct 1/13/2020 16:42",
+		"mouseOpenHaloFor:" : "ct 3/17/2021 23:01",
 		"mousePress:at:buttons:" : "tobe 10/3/2019 20:00",
 		"mousePress:buttons:" : "tobe 10/3/2019 20:00",
 		"mouseRelease:at:buttons:" : "tobe 10/3/2019 20:00",
@@ -87,7 +87,7 @@
 		"simulateMouseEvent:" : "ct 1/17/2020 19:09",
 		"simulateMouseEvent:at:buttons:start:" : "ct 1/17/2020 19:18",
 		"simulateMouseEvent:at:buttons:start:morph:" : "ct 1/17/2020 19:21",
-		"spawnHand" : "ct 1/13/2020 19:01",
+		"spawnHand" : "ct 3/17/2021 23:00",
 		"takeScreenshot" : "ct 11/24/2019 19:36",
 		"takeScreenshotOf:" : "ct 11/24/2019 19:36",
 		"takeScreenshotOfAll:" : "ct 1/17/2020 20:03",