diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st
index ccc7bd00..a9be2b80 100644
--- a/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st
+++ b/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st
@@ -846,6 +846,7 @@ GtGemStoneSession >> gtAbortActionFor: anAction [
 	^(anAction button)
 		priority: 7;
 		tooltip: 'GemStone Abort Transaction';
+		label: 'Abort';
 		icon: BrGlamorousVectorIcons cancel;
 		action: 
 				[:button |
@@ -892,6 +893,7 @@ GtGemStoneSession >> gtCommitActionFor: anAction [
 	^(anAction button)
 		priority: 6;
 		tooltip: 'GemStone Commit Transaction';
+		label: 'Commit';
 		icon: BrGlamorousVectorIcons accept;
 		action: 
 				[:button |
diff --git a/src/GToolkit-GemStone-Pharo/GtpoGsNMethod.class.st b/src/GToolkit-GemStone-Pharo/GtpoGsNMethod.class.st
index 8f65d5bf..61c0083f 100644
--- a/src/GToolkit-GemStone-Pharo/GtpoGsNMethod.class.st
+++ b/src/GToolkit-GemStone-Pharo/GtpoGsNMethod.class.st
@@ -50,7 +50,9 @@ GtpoGsNMethod >> gtAbortActionFor: anAction [
 	(gtSession isNil or: [ gtSession isRunning not ]) ifTrue: [ ^ anAction noAction ].
 	^ anAction button 
 		tooltip: 'GemStone Abort Transaction';
+		label: 'Abort';
 		icon: BrGlamorousVectorIcons cancel;
+		priority: 25;
 		action: [ :button | 
 			gtSession abortTransaction.
 			button phlow spawnObject: 'Aborted transaction' ]
@@ -81,7 +83,9 @@ GtpoGsNMethod >> gtCommitActionFor: anAction [
 	(gtSession isNil or: [ gtSession isRunning not ]) ifTrue: [ ^ anAction noAction ].
 	^ anAction button 
 		tooltip: 'GemStone Commit Transaction';
+		label: 'Commit';
 		icon: BrGlamorousVectorIcons accept;
+		priority: 20;
 		action: [ :button | 
 			gtSession commitTransaction.
 			button phlow spawnObject: 'Successfully committed transaction' ]