diff --git a/src/Spec2-Dialogs/SpApplication.extension.st b/src/Spec2-Dialogs/SpApplication.extension.st
index def49f68..693628d8 100644
--- a/src/Spec2-Dialogs/SpApplication.extension.st
+++ b/src/Spec2-Dialogs/SpApplication.extension.st
@@ -32,13 +32,12 @@ SpApplication >> informUser: aString during: aBlock [
 	| result |
 
 	result := nil.
-	self jobList
-		pushJob: (Job new
-			title: aString;
-			block: [ :job | 
-				job min: 0; max: 100.
-				result := aBlock cull: job ];
-			yourself).
+	Job new
+		title: aString;
+		block: [ :job | 
+			job min: 0; max: 100.
+			result := aBlock cull: job ];
+		run.
 
 	^ result
 ]