--- a/DisplaySurface.st	Wed Apr 06 21:18:38 2011 +0200
+++ b/DisplaySurface.st	Thu Apr 07 09:35:18 2011 +0200
@@ -854,9 +854,13 @@
     |oldMenu|
 
     (oldMenu := self middleButtonMenu) notNil ifTrue:[
-	oldMenu destroy
+        oldMenu isArray ifFalse:[
+            oldMenu destroy
+        ]
     ].
     self setMiddleButtonMenu:aMenu
+
+    "Modified: / 07-04-2011 / 09:06:42 / cg"
 !
 
 setMiddleButtonMenu:aMenu
@@ -2537,11 +2541,11 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.148 2011-01-23 09:44:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.149 2011-04-07 07:35:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.148 2011-01-23 09:44:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.149 2011-04-07 07:35:18 cg Exp $'
 ! !
 
 DisplaySurface initialize!