diff --git a/src/GitLabHealth-Model-Importer/GLHModelImporter.class.st b/src/GitLabHealth-Model-Importer/GLHModelImporter.class.st
index d173374..18bfeeb 100644
--- a/src/GitLabHealth-Model-Importer/GLHModelImporter.class.st
+++ b/src/GitLabHealth-Model-Importer/GLHModelImporter.class.st
@@ -9,22 +9,9 @@ Class {
 		'generalReader',
 		'userCatalogue'
 	],
-	#classVars : [
-		'currentImporter'
-	],
 	#category : #'GitLabHealth-Model-Importer'
 }
 
-{ #category : #'as yet unclassified' }
-GLHModelImporter class >> importers [
-	^ currentImporter 
-]
-
-{ #category : #initialization }
-GLHModelImporter class >> reset [
-	currentImporter := nil.
-]
-
 { #category : #'private - api' }
 GLHModelImporter >> addCommits: commitsList toRepository: aProjectRepository [
 	"I take a list of GLHCommit. But some might have been parsed but are already on the model..."
diff --git a/src/GitLabHealth-Visualization/RSCommit.class.st b/src/GitLabHealth-Visualization/RSCommit.class.st
index f519c77..5637dac 100644
--- a/src/GitLabHealth-Visualization/RSCommit.class.st
+++ b/src/GitLabHealth-Visualization/RSCommit.class.st
@@ -5,7 +5,7 @@ Class {
 		'aCommit',
 		'canvas'
 	],
-	#category : 'GitLabHealth-Visualization'
+	#category : #'GitLabHealth-Visualization'
 }
 
 { #category : #'as yet unclassified' }
@@ -402,7 +402,7 @@ RSCommit >> shapeForCommit: aGLHCommit withColor: color [
 	group := RSGroup new.
 	impactedFiles := RSGroup new.
 	labelTitle := RSLabel new
-		              text: (aGLHCommit name truncateWithElipsisTo: 40);
+		              text: (aGLHCommit message ifNil: [ (aGLHCommit id truncateWithElipsisTo: 7) printString ] ifNotNil: [ aGLHCommit message truncateWithElipsisTo: 40] );
 		              yourself.
 
 	labelCommiter := RSLabel new
diff --git a/src/GitProjectHealth-Model-Importer/GPModelImporter.class.st b/src/GitProjectHealth-Model-Importer/GPModelImporter.class.st
index c964f9e..8be76cf 100644
--- a/src/GitProjectHealth-Model-Importer/GPModelImporter.class.st
+++ b/src/GitProjectHealth-Model-Importer/GPModelImporter.class.st
@@ -12,9 +12,22 @@ Class {
 		'withFiles',
 		'glhModel'
 	],
-	#category : 'GitProjectHealth-Model-Importer'
+	#classVars : [
+		'currentImporter'
+	],
+	#category : #'GitProjectHealth-Model-Importer'
 }
 
+{ #category : #'accessing - global variables' }
+GPModelImporter class >> importers [
+	^ currentImporter 
+]
+
+{ #category : #initialization }
+GPModelImporter class >> reset [
+	currentImporter := nil.
+]
+
 { #category : #accessing }
 GPModelImporter >> beWithFiles [