diff --git a/tools/lazdatadesktop/dicteditor.pp b/tools/lazdatadesktop/dicteditor.pp
index b87d57e262..696948b03c 100644
--- a/tools/lazdatadesktop/dicteditor.pp
+++ b/tools/lazdatadesktop/dicteditor.pp
@@ -713,7 +713,7 @@ begin
     case EOT of
       eotField : NewField(N,CurrentTable);
       eotIndex : NewIndex(N,CurrentTable);
-      eotForeignKey : NewIndex(N,CurrentTable);
+      eotForeignKey : NewForeignKey(N,CurrentTable);
     else
       NewGlobalObject(N,EOT);
     end;