Merge 08e8e23

pharo-vcs · Feb 3, 2024 · 98a79a8 · 98a79a8
2 parents 1549abc + 08e8e23
commit 98a79a8
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/Iceberg/IceExternalJob.class.st b/Iceberg/IceExternalJob.class.st
@@ -16,9 +16,10 @@ Class {
 { #category : 'events' }
 IceExternalJob >> changed [
 
-	current >= max 
-		ifTrue: [ ^ Job jobAnnouncer announce: (JobEnd on: self) ].
-	Job jobAnnouncer announce: (JobChange on: self)
+	self currentWorld defer: [  
+		Job jobAnnouncer announce: (current >= max 
+			ifTrue: [ JobEnd on: self ]
+			ifFalse: [ JobChange on: self ]) ]
 ]
 
 { #category : 'accessing' }
@@ -28,7 +29,9 @@ IceExternalJob >> current: anInteger [
 
 { #category : 'events' }
 IceExternalJob >> end [
-	Job jobAnnouncer announce: (JobEnd on: self)
+
+	self currentWorld defer: [ 
+		Job jobAnnouncer announce: (JobEnd on: self) ]
 ]
 
 { #category : 'events' }
@@ -73,7 +76,8 @@ IceExternalJob >> progress [
 IceExternalJob >> start [
 
 	started := true.
-	Job jobAnnouncer announce: (JobStart on: self)
+	self currentWorld defer: [ 
+		Job jobAnnouncer announce: (JobStart on: self) ]
 ]
 
 { #category : 'accessing' }