--- a/HorizontalPanelView.st	Fri Nov 16 15:09:39 2007 +0100
+++ b/HorizontalPanelView.st	Wed Nov 28 13:16:04 2007 +0100
@@ -1113,9 +1113,12 @@
 !HorizontalPanelView methodsFor:'focus handling'!
 
 subviewsInFocusOrder
+
+    subViews isEmptyOrNil ifTrue:[ ^ #() ].
+    
     (reverseOrderIfOKAtLeft == true
     and:[Dialog defaultOKButtonAtLeft]) ifTrue:[
-        ^ (subViews ? #()) reversed
+        ^ subViews reversed
     ].
     ^ subViews
 ! !
@@ -1513,5 +1516,5 @@
 !HorizontalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.54 2007-10-10 11:48:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.55 2007-11-28 12:16:04 ca Exp $'
 ! !