diff --git a/Tixish/Balloon.pm b/Tixish/Balloon.pm
index cb8f7f45..02f131fc 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],