diff --git a/lib/OSRIC/Character.pm b/lib/OSRIC/Character.pm
index 8b18612..a08c794 100644
--- a/lib/OSRIC/Character.pm
+++ b/lib/OSRIC/Character.pm
@@ -189,12 +189,12 @@ sub generate_gold
 	my $self = shift;
 
 	# Get the classes and sort by the highest starting gold (see page 28): 
-	my @sorted = sort { "OSRIC::Class::$a"->max_starting_gold <=> 
-						"OSRIC::Class::$b"->max_starting_gold }
+	my @sorted = sort { "OSRIC::Class::$b"->max_starting_gold <=> 
+						"OSRIC::Class::$a"->max_starting_gold }
 						@{$self->{personal}->{classes}};
 
 	# Generate the starting gold:
-	$self->{wealth}->{coins} = "OSRIC::Class::$classes[0]"->get_gold;
+	$self->{wealth}->{coins} = "OSRIC::Class::$sorted[0]"->get_gold;
 }
 
 # Encodes the character to JSON: