--- a/DisplaySurface.st	Wed Apr 22 10:01:31 1998 +0200
+++ b/DisplaySurface.st	Wed Apr 22 12:58:29 1998 +0200
@@ -1920,12 +1920,12 @@
     "the view for which I am a handle was collected 
      - release system resources"
 
-    |v|
+    |v id|
 
     drawableId notNil ifTrue:[
-        gcId notNil ifTrue:[
-            device destroyGC:gcId.
+        (id := gcId) notNil ifTrue:[
             gcId := nil.
+            device destroyGC:id.
         ].
 
         "/ care for lost-view trouble:
@@ -1945,8 +1945,9 @@
         ] ifFalse:[
 "/ 'GC destroy: ' print. drawableId displayString printCR.
 "/ device checkKnownViewId:drawableId.
-            device destroyView:nil withId:drawableId.
+	    id := drawableId.
             drawableId := nil.
+            device destroyView:nil withId:id.
         ]
     ].
 
@@ -1957,5 +1958,5 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.36 1998-01-22 15:29:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.37 1998-04-22 10:57:25 cg Exp $'
 ! !