diff --git a/Prima/Dialog/FileDialog.pm b/Prima/Dialog/FileDialog.pm
index 26c3a972..e5e89747 100644
--- a/Prima/Dialog/FileDialog.pm
+++ b/Prima/Dialog/FileDialog.pm
@@ -504,11 +504,11 @@ use vars qw(@ISA @images);
 
 sub profile_default
 {
-	my %sup = %{$_[ 0]-> SUPER::profile_default};
+	my $sup = $_[ 0]-> SUPER::profile_default;
 	return {
-		%sup,
+		%$sup,
 		style            => cs::DropDownList,
-		height           => $sup{ editHeight},
+		height           => $sup->{editHeight},
 		firstDrive       => 'A:',
 		drive            => 'C:',
 		editClass        => 'Prima::DriveComboBox::InputLine',
diff --git a/Prima/Widget/Date.pm b/Prima/Widget/Date.pm
index 456f55e7..3c9a7f42 100644
--- a/Prima/Widget/Date.pm
+++ b/Prima/Widget/Date.pm
@@ -90,11 +90,13 @@ use Prima qw(Calendar);
 
 sub profile_default
 {
+	my $d = $_[0]->SUPER::profile_default;
 	return {
-		%{ $_[0]->SUPER::profile_default },
+		%$d,
 		date      => $_[0]->time2date(time),
 		format    => $_[0]->default_format,
 		style     => cs::DropDown,
+		height    => $d->{editHeight},
 		editClass => 'Prima::Widget::Date::Input',
 		listClass => 'Prima::Widget::Date::List',
 	};