1 files changed, 6 insertions, 7 deletions

diff --git a/wizards/source/scriptforge/SF_Exception.xba b/wizards/source/scriptforge/SF_Exception.xba
index 2af37d9534f2..aeac2fb91aab 100644
--- a/wizards/source/scriptforge/SF_Exception.xba
+++ b/wizards/source/scriptforge/SF_Exception.xba
@@ -612,7 +612,7 @@ Public Sub Raise(Optional ByVal Number As Variant _
 '''			SF_Exception.Raise(,, "To divide by zero is not a good idea !")
 
 Dim sMessage As String			'	Error message to log and to display
-Dim L10N As Object				'	Alias to Interface
+Dim L10N As Object				'	Alias to LocalizedInterface
 Const cstThisSub = "Exception.Raise"
 Const cstSubArgs = "[Number=Err], [Source=Erl], [Description]"
 
@@ -641,7 +641,7 @@ Try:
 		If Len(Description) > 0 Then .Description = Description
 
 		'	Log and display
-		Set L10N = _SF_.Interface
+		Set L10N = _SF_._GetLocalizedInterface()
 		sMessage = L10N.GetText("LONGERRORDESC", .Number, .Source, .Description)
 		.DebugPrint(sMessage)
 		If _SF_.DisplayEnabled Then MsgBox L10N.GetText("ERRORNUMBER", .Number) _
@@ -675,7 +675,7 @@ Public Sub RaiseAbort(Optional ByVal Source As Variant)
 Dim sLocation As String		'	Common header in error messages: location of error
 Dim vLocation As Variant	'	Split array (library, module, method)
 Dim sMessage As String		'	Error message to log and to display
-Dim L10N As Object			'	Alias to Interface
+Dim L10N As Object			'	Alias to LocalizedInterface
 Const cstTabSize = 4
 Const cstThisSub = "Exception.RaiseAbort"
 Const cstSubArgs = "[Source=Erl]"
@@ -691,7 +691,7 @@ Try:
 	With SF_Exception
 
 		'	Prepare message header
-		Set L10N = _SF_.Interface
+		Set L10N = _SF_._GetLocalizedInterface()
 		If Len(_SF_.MainFunction) > 0 Then	'	MainFunction = [Library.]Module.Method
 			vLocation = Split(_SF_.MainFunction, ".")
 			If UBound(vLocation) < 2 Then vLocation = SF_Array.Prepend(vLocation, "ScriptForge")
@@ -701,7 +701,6 @@ Try:
 		End If
 
 		'	Log and display
-		Set L10N = _SF_.Interface
 		sMessage = L10N.GetText("LONGERRORDESC", .Number, .Source, .Description)
 		.DebugPrint(sMessage)
 		If _SF_.DisplayEnabled Then
@@ -741,7 +740,7 @@ Dim sService As String		'	Service name having detected the error
 Dim sMethod As String		'	Method name having detected the error
 Dim vLocation As Variant	'	Split array (library, module, method)
 Dim sMessage As String		'	Message to log and display
-Dim L10N As Object			'	Alias of Interface
+Dim L10N As Object			'	Alias of LocalizedInterface
 Dim sAlt As String			'	Alternative error messages
 Dim iButtons As Integer		'	MB_OK or MB_YESNO
 Dim iMsgBox As Integer		'	Return value of the message box
@@ -760,7 +759,7 @@ Check:
 	End If
 
 Try:
-	Set L10N = _SF_.Interface
+	Set L10N = _SF_._GetLocalizedInterface()
 	'	Location header common to all error messages
 	If Len(_SF_.MainFunction) > 0 Then	'	MainFunction = [Library.]Module.Method
 		vLocation = Split(_SF_.MainFunction, ".")