--- a/DeviceWorkstation.st	Wed May 07 15:17:13 2014 +0200
+++ b/DeviceWorkstation.st	Wed May 07 22:28:33 2014 +0200
@@ -7705,7 +7705,9 @@
 
         wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 
-        (viewToRemove notNil and:[viewToRemove isTopView]) ifTrue:[
+        (viewToRemove notNil 
+          and:[ viewToRemove ~~ 0 
+          and:[ viewToRemove isTopView ]]) ifTrue:[
             "/ check for sparsely filled knownViews - array
             wasBlocked := OperatingSystem blockInterrupts.
             n := 0.
@@ -8342,11 +8344,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.614 2014-04-28 09:05:17 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.615 2014-05-07 20:28:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.614 2014-04-28 09:05:17 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.615 2014-05-07 20:28:33 cg Exp $'
 ! !