--- oup/rewrite/Tools/Template.pas	2007/02/20 20:43:29	101
+++ oup/rewrite/Tools/Template.pas	2007/02/21 00:29:27	105
@@ -116,7 +116,7 @@ begin
         datatype := 'OUP-DB: '
       else
         datatype := 'Unknown: ';
-      boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ')';
+      boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ') [' + IntToStr(ConManager.ConnectionByIndex[i].ConnectionID) + ']';
       combo_connection.Items.Add(boxstring);
       if ConManager.ConnectionByIndex[i].ConnectionID = FConnectionID then
         combo_connection.ItemIndex := combo_connection.Items.Count - 1;
@@ -275,7 +275,10 @@ var
   i: Integer;
 begin
   if combo_connection.ItemIndex >= 0 then
-    FConnectionID := combo_connection.ItemIndex
+  begin
+    name := combo_connection.Items.Strings[combo_connection.ItemIndex];
+    FConnectionID := StrToInt(MidStr(name, Pos('[', name) + 1, Pos(']', name) - Pos('[', name)  - 1));
+  end
   else
     FConnectionID := -1;
   RecreateExtList;