From fb5a3a93cab174ded7073333825a813cea819612 Mon Sep 17 00:00:00 2001
From: Christoph Thiede <38782922+LinqLover@users.noreply.github.com>
Date: Mon, 31 May 2021 13:03:21 +0200
Subject: [PATCH] Fix figure Metaclasses/translucentEllipse

Complements ToolBuilder-Morphic-mt.276.
---
 Metaclasses/Metaclasses.tex | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Metaclasses/Metaclasses.tex b/Metaclasses/Metaclasses.tex
index 3d78af9c..fe4526bc 100644
--- a/Metaclasses/Metaclasses.tex
+++ b/Metaclasses/Metaclasses.tex
@@ -134,7 +134,7 @@ \section{Revisiting the Smalltalk object model}
 \begin{ExecuteSmalltalkScript}
 SBEScreenshotRecorder writeTo: 'figures/TranslucentEllipse.png' building: [:helper |
 	| workspace |
-	workspace := Workspace open.
+	workspace := Workspace open containingWindow.
 	helper
 		type: [EllipseMorph new
 			color: (Color blue alpha: 0.4);