Index: install/JVCLInstall/DelphiData.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall/DelphiData.pas,v
retrieving revision 1.22
diff -u -r1.22 DelphiData.pas
--- install/JVCLInstall/DelphiData.pas	4 Dec 2005 10:22:50 -0000	1.22
+++ install/JVCLInstall/DelphiData.pas	26 Jan 2006 12:05:50 -0000
@@ -562,6 +562,13 @@
 
     Reg.RootKey := HKEY_CURRENT_USER;
 
+    if IsBDS and Reg.OpenKeyReadOnly(HKLMRegistryKey+'\Environment Variables') then // do not localize
+    begin
+      if Reg.ValueExists('BDSPROJECTSDIR') then
+        FBDSProjectsDir := ExpandDirMacros(Reg.ReadString('BDSPROJECTSDIR')); // do not localize
+      Reg.CloseKey;
+    end;
+
     if Reg.OpenKeyReadOnly(RegistryKey) then
     begin
      // obtain updates state