From c8958f3ab7fd75266d0d7ad900c56a85ff8d5b92 Mon Sep 17 00:00:00 2001
From: kagamma <kagamma.km@gmail.com>
Date: Wed, 31 Jan 2024 06:21:00 +0000
Subject: [PATCH] Minor correction

---
 packages/fv/src/dialogs.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fv/src/dialogs.inc b/packages/fv/src/dialogs.inc
index 0f6d53eda6..b8f5ccf0b4 100644
--- a/packages/fv/src/dialogs.inc
+++ b/packages/fv/src/dialogs.inc
@@ -1630,8 +1630,8 @@ BEGIN
                                                       { We do not check for Data <> Sw_PString_Empty
                                                         in the Unicode version, or else this function
                                                         will always fail to get the data }
-   if (Validator = Nil) OR (Validator^.Transfer(
-     Data, @Rec, vtSetData) = 0) Then
+   If (Validator = Nil) OR (Validator^.Transfer(Data Sw_PString_DeRef,
+   @Rec, vtGetData) = 0) Then
      Sw_String(Rec) := Data;
 {$else FV_UNICODE}
    If Data <> Sw_PString_Empty Then Begin             { Data ptr valid }