diff --git a/wizards/source/scriptforge/SF_UI.xba b/wizards/source/scriptforge/SF_UI.xba
index 442b182915f0..b560c26b9067 100644
--- a/wizards/source/scriptforge/SF_UI.xba
+++ b/wizards/source/scriptforge/SF_UI.xba
@@ -1165,7 +1165,8 @@ Try:
 	With oDialog
 		If Not IsNull(oDialog) Then
 			If Len(Title) = 0 And Len(Text) = 0 And Percentage = -1 Then
-				Set oDialog = .Dispose()
+				.Terminate()
+				Set oDialog = Nothing
 			Else
 				.Caption = Iif(Len(Title) > 0, Title, "ScriptForge")
 				If bFirstCall Then