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);