diff --git a/ChangeLog b/ChangeLog
index fda5f829..31e2b286 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2004-09-17 00:54 Gregory John Casamento <greg_casamento@yahoo.com>
+
+	* GormPalettesManager.m: Added code to [GormPalettesManager
+	setCurrentPalette:] to change the title to reflect the 
+	name of the palette currently selected.  This makes it easier
+	for the developer to navigate the palettes.
+	
 2004-09-17 00:54 Gregory John Casamento <greg_casamento@yahoo.com>
 
 	* Palettes/2Controls/ControlsPalette.gorm: Removed old 14pt.
diff --git a/GormPalettesManager.m b/GormPalettesManager.m
index 40555591..b9370983 100644
--- a/GormPalettesManager.m
+++ b/GormPalettesManager.m
@@ -544,11 +544,19 @@ static NSImage	*dragImage = nil;
   current = [anObj selectedColumn];
   if (current >= 0 && current < [palettes count])
     {
+      id palette = [palettes objectAtIndex: current];
+
+      /*
+       * Set the window title to reflect the palette selection.
+       */
+      [panel setTitle: [NSString stringWithFormat: @"Palettes (%@)", 
+				 [palette className]]];
+
       /*
        * Move the views from their original window into our drag view.
        * Resize our drag view to the right size fitrst.
        */
-      wv = [[[palettes objectAtIndex: current] originalWindow] contentView];
+      wv = [[palette originalWindow] contentView];
       if (wv)
         [dragView setFrameSize: [wv frame].size];
       enumerator = [[wv subviews] objectEnumerator];