diff --git a/Tixish/Balloon.pm b/Tixish/Balloon.pm
index 8b8fa4fb..32899d70 100644
--- a/Tixish/Balloon.pm
+++ b/Tixish/Balloon.pm
@@ -108,7 +108,7 @@ sub Populate {
 		    -cancelcommand => ['CALLBACK', 'cancelCommand', 'CancelCommand', undef],
 		    -motioncommand => ['CALLBACK', 'motionCommand', 'MotionCommand', undef],
 		    -background => ['DESCENDANTS', 'background', 'Background', '#C0C080'],
-                    -foreground => ['DESCENDANTS', 'foreground', 'Foreground', undef],
+		    -foreground => ['DESCENDANTS', 'foreground', 'Foreground', 'black'],
 		    -font => [$ml, 'font', 'Font', '-*-helvetica-medium-r-normal--*-120-*-*-*-*-*-*'],
 		    -borderwidth => ['SELF', 'borderWidth', 'BorderWidth', 1],
                     -numscreens=>['PASSIVE', 'numScreens','NumScreens',1],
diff --git a/Tixish/DialogBox.pm b/Tixish/DialogBox.pm
index 6111a0ec..ae9d1893 100644
--- a/Tixish/DialogBox.pm
+++ b/Tixish/DialogBox.pm
@@ -79,7 +79,7 @@ sub Populate {
 	warn "Cancel button `$cancel_button' does not exist.\n";
     }
     $cw->ConfigSpecs(-command    => ['CALLBACK', undef, undef, undef ],
-                     -foreground => ['DESCENDANTS', 'foreground','Foreground', 'black'],
+                     -foreground => ['DESCENDANTS', 'foreground','Foreground',  undef],
                      -background => ['DESCENDANTS', 'background','Background',  undef],
 		     -focus	 => ['PASSIVE', undef, undef, undef],
 		     -showcommand => ['CALLBACK', undef, undef, undef],
diff --git a/Tk/Derived.pm b/Tk/Derived.pm
index 1685c781..c3e467e9 100644
--- a/Tk/Derived.pm
+++ b/Tk/Derived.pm
@@ -339,14 +339,14 @@ sub ConfigDefault
    Tk::catch { $cw->Tk::cget('-background') };
    my (@bg) = $@ ? ('PASSIVE') : ('SELF');
    push(@bg,'CHILDREN') if $child;
-   $specs->{'-background'} = [\@bg,'background','Background',NORMAL_BG];
+   $specs->{'-background'} = [\@bg,'background','Background',undef];
   }
  unless (exists($specs->{'-foreground'}))
   {
    Tk::catch { $cw->Tk::cget('-foreground') };
    my (@fg) = $@ ? ('PASSIVE') : ('SELF');
    push(@fg,'CHILDREN') if $child;
-   $specs->{'-foreground'} = [\@fg,'foreground','Foreground',BLACK];
+   $specs->{'-foreground'} = [\@fg,'foreground','Foreground',undef];
   }
  $cw->ConfigAlias(-fg => '-foreground', -bg => '-background');