--- oup/current/Tools/MetaEditor.pas	2007/08/10 17:26:03	243
+++ oup/current/Tools/MetaEditor.pas	2007/08/17 21:09:51	244
@@ -100,16 +100,19 @@ var
   i: Integer;
   data: TNodeData;
   node: PVirtualNode;
+  basenode: PVirtualNode;
 begin
   if FConnectionID <> TreeElem.ConnectionID then
     SelectConnection(TreeElem.ConnectionID);
   root := TreeElem;
   VST.Clear;
   VST.BeginUpdate;
+  data.Field := root;
+  basenode := AddVSTEntry(VST, nil, data);
   for i := 0 to root.ChildCount - 1 do
   begin
     data.Field := root.Child[i];
-    node := AddVSTEntry(VST, nil, data);
+    node := AddVSTEntry(VST, basenode, data);
     if data.Field.ChildCount > 0 then
       VST.HasChildren[node] := True;
   end;