diff --git a/src/GToolkit-World/GtCoderStencil.class.st b/src/GToolkit-World/GtCoderStencil.class.st
index d2723e3ae..b79a7a132 100644
--- a/src/GToolkit-World/GtCoderStencil.class.st
+++ b/src/GToolkit-World/GtCoderStencil.class.st
@@ -1,6 +1,9 @@
 Class {
 	#name : #GtCoderStencil,
 	#superclass : #GtToolStencil,
+	#instVars : [
+		'coder'
+	],
 	#category : #'GToolkit-World-Stencils'
 }
 
@@ -9,9 +12,19 @@ GtCoderStencil >> asPreviewElement [
 	^ GtCoder new asElement
 ]
 
+{ #category : #accessing }
+GtCoderStencil >> coder [
+	^ coder ifNil: [ coder := GtCoder new ]
+]
+
+{ #category : #accessing }
+GtCoderStencil >> coder: aCoder [
+	coder := aCoder
+]
+
 { #category : #'api - instantiation' }
 GtCoderStencil >> create [
-	^ GtCoder new createInPager maximized.
+	^ self coder createInPager maximized
 ]
 
 { #category : #accessing }