--- a/MenuPanel.st	Thu Jan 16 15:32:28 2014 +0100
+++ b/MenuPanel.st	Thu Jan 16 15:33:16 2014 +0100
@@ -2110,10 +2110,10 @@
 
 rightArrow
     rightArrow isNil ifTrue:[
-	device isNil ifTrue:[
-	    ^ SelectionInListView rightArrowFormOn:Display
-	].
-	rightArrow := SelectionInListView rightArrowFormOn:device
+        device isNil ifTrue:[
+            ^ SelectionInListView rightArrowFormOn:Screen current
+        ].
+        rightArrow := SelectionInListView rightArrowFormOn:device
     ].
     ^ rightArrow
 !
@@ -8731,11 +8731,11 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.579 2013-12-18 13:48:42 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.580 2014-01-16 14:33:16 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.579 2013-12-18 13:48:42 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.580 2014-01-16 14:33:16 stefan Exp $'
 ! !