--- a/StandardSystemView.st	Mon Dec 07 13:45:35 2015 +0100
+++ b/StandardSystemView.st	Fri Dec 11 14:26:48 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -768,6 +766,8 @@
     "define the maximum extent the view may have -
      depends on good-will of window manager"
 
+    |id|
+    
     maxExtent ~= max ifTrue:[
         maxExtent := max.
         maxExtent x isNil ifTrue:[
@@ -777,8 +777,8 @@
             maxExtent := maxExtent x @ 99999.
         ].
 
-        self drawableId notNil ifTrue:[
-            self graphicsDevice setWindowMinExtent:nil maxExtent:max in:self drawableId
+        (id := self drawableId) notNil ifTrue:[
+            self graphicsDevice setWindowMinExtent:nil maxExtent:max in:id
         ].
 
         "/ if my current extent is larger than the new
@@ -803,10 +803,12 @@
     "define the minimum extent the view may have -
      depends on good-will of window manager"
 
+    |id|
+
     minExtent ~= min ifTrue:[
         minExtent := min.
-        self drawableId notNil ifTrue:[
-            self graphicsDevice setWindowMinExtent:min maxExtent:nil in:self drawableId
+        (id := self drawableId) notNil ifTrue:[
+            self graphicsDevice setWindowMinExtent:min maxExtent:nil in:id
         ].
 
         "/ if my current extent is smaller than the new
@@ -1754,11 +1756,11 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.233 2015-05-22 19:16:01 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.233 2015-05-22 19:16:01 cg Exp $'
+    ^ '$Header$'
 ! !