diff --git a/src/Roassal-UML/RSAbstractUMLClassRenderer.class.st b/src/Roassal-UML/RSAbstractUMLClassRenderer.class.st
index d16e22d2..94210347 100644
--- a/src/Roassal-UML/RSAbstractUMLClassRenderer.class.st
+++ b/src/Roassal-UML/RSAbstractUMLClassRenderer.class.st
@@ -59,6 +59,13 @@ RSAbstractUMLClassRenderer >> applyVLayoutOn: shapes [
 	self applyLayoutOn: shapes
 ]
 
+{ #category : 'accessing' }
+RSAbstractUMLClassRenderer >> associationShape [
+	| shape |
+	shape := self simpleLineShape.
+	^ shape.
+]
+
 { #category : 'accessing' }
 RSAbstractUMLClassRenderer >> classBoxPadding [
 	^ padding ifNil: [ padding := self defaultClassBoxPadding ]
@@ -219,7 +226,15 @@ RSAbstractUMLClassRenderer >> renderAssociation: aCollection shape: aRSLine [
 { #category : 'public' }
 RSAbstractUMLClassRenderer >> renderAssociations [
 	self renderAssociation: self modelDescriptor compositions shape: self compositionShape.
-	self renderAssociation: self modelDescriptor aggregations shape: self aggregationShape
+	self renderAssociation: self modelDescriptor aggregations shape: self aggregationShape.
+	self renderAssociation: self modelDescriptor associations shape: self associationShape.
+]
+
+{ #category : 'accessing' }
+RSAbstractUMLClassRenderer >> simpleLineShape [
+	^ RSLine new
+		border: self border;
+		yourself
 ]
 
 { #category : 'hooks' }
diff --git a/src/Roassal-UML/RSUMLClassDescriptor.class.st b/src/Roassal-UML/RSUMLClassDescriptor.class.st
index 4d633fb4..b5952cce 100644
--- a/src/Roassal-UML/RSUMLClassDescriptor.class.st
+++ b/src/Roassal-UML/RSUMLClassDescriptor.class.st
@@ -14,7 +14,8 @@ Class {
 		'methodsLimit',
 		'aggregations',
 		'compositions',
-		'isAbstract'
+		'isAbstract',
+		'associations'
 	],
 	#category : 'Roassal-UML-Descriptor',
 	#package : 'Roassal-UML',
@@ -31,6 +32,17 @@ RSUMLClassDescriptor >> aggregations: aCollection [
 	aggregations := aCollection
 ]
 
+{ #category : 'accessing' }
+RSUMLClassDescriptor >> associations [
+	^ associations
+]
+
+{ #category : 'accessing' }
+RSUMLClassDescriptor >> associations: anObject [
+
+	associations := anObject
+]
+
 { #category : 'accessing' }
 RSUMLClassDescriptor >> classname [
 	^ classname