restore

pharo-spec · Feb 3, 2024 · a99cdfd · a99cdfd
1 parent 9305ed7
commit a99cdfd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Spec2-Dialogs/SpApplication.extension.st b/src/Spec2-Dialogs/SpApplication.extension.st
@@ -32,12 +32,12 @@ SpApplication >> informUser: aString during: aBlock [
 	| result |
 
 	result := nil.
-	Job new
+	self jobList pushJob: (Job new
 		title: aString;
 		block: [ :job | 
 			job min: 0; max: 100.
 			result := aBlock cull: job ];
-		run.
+		yourself).
 
 	^ result
 ]