diff --git a/Prima/VB/Classes.pm b/Prima/VB/Classes.pm
index 57f4da23..e7c8c38d 100644
--- a/Prima/VB/Classes.pm
+++ b/Prima/VB/Classes.pm
@@ -1783,7 +1783,7 @@ sub set
 			();
 		delete $items{ $self-> {widget}-> name};
 		delete @items{ map { $_-> name } $VB::form-> marked_widgets};
-		$self-> {A}-> items( [ keys %items]);
+		$self-> {A}-> items( [ sort keys %items]);
 		$data = $VB::form-> name unless length $data;
 	}
 	$self-> {A}-> text( $data);