--- a/ExternalTopView.st	Sat Apr 02 17:07:42 2016 +0200
+++ b/ExternalTopView.st	Sat Apr 02 17:07:45 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 TopView subclass:#ExternalTopView
 	instanceVariableNames:'windowClosedPollProcess'
 	classVariableNames:'ErrorPrinting'
@@ -91,7 +93,7 @@
 
     |stillAlive prevErrorPrintingFlag graphicsDevice|
 
-    graphicsDevice := self graphicsDevice.
+    graphicsDevice := device.
     prevErrorPrintingFlag := graphicsDevice class errorPrinting.
     graphicsDevice class errorPrinting:(ErrorPrinting ? true).
 
@@ -317,6 +319,6 @@
 !ExternalTopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.21 2014-02-18 14:38:31 stefan Exp $'
+    ^ '$Header$'
 ! !