yet another small fix to font variables

VincentBlondeau · Nov 10, 2020 · 51d5ecd · 51d5ecd
1 parent b24417e
commit 51d5ecd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Spec2-Adapters-Morphic/SpStyleFont.class.st b/src/Spec2-Adapters-Morphic/SpStyleFont.class.st
@@ -249,10 +249,10 @@ SpStyleFont >> mergeWith: otherProperty [
 
 	"Ensure predefined font will be overriden even if nil."
 	otherProperty name 
-		ifNotNil: [ :aName |
+		ifNotNil: [
 			merged 
 				writeSlotNamed: 'predefinedFont' value: nil;
-				writeSlotNamed: 'name' value: aName ].
+				writeSlotNamed: 'name' value: self nameVariable ].
 
 	^ merged
 ]
@@ -272,7 +272,7 @@ SpStyleFont >> name: aString [
 { #category : #'accessing variables' }
 SpStyleFont >> nameVariable [
 
-	^ name
+	^ self toVariable: name
 ]
 
 { #category : #private }