--- a/XWorkstation.st	Tue Feb 11 22:12:09 2003 +0100
+++ b/XWorkstation.st	Wed Feb 12 14:29:45 2003 +0100
@@ -4786,6 +4786,9 @@
      Other systems may not need such a kludge"
 
     "interested in exposes only ?"
+
+    |eventArray|
+
     dispatchingExpose notNil ifTrue:[
         [self exposeEventPendingFor:dispatchingExpose withSync:false] whileTrue:[
             self dispatchExposeEventFor:dispatchingExpose
@@ -4793,10 +4796,8 @@
         ^ self
     ].
 
+    eventArray := Array new:13.
     [self eventPendingWithSync:false] whileTrue:[
-        |eventArray|
-
-        eventArray := Array new:13.
         (self getEventFor:nil withMask:nil into:eventArray) ifTrue:[
             AbortSignal handle:[:ex |
                 ex return
@@ -7776,30 +7777,30 @@
     "open a connection to some display;
      return displayId if ok, nil of not ok"
 
-%{ /* STACK:80000 */    /* XOpenDisplay() calls gethostbyname() */
+%{ /* STACK:100000 */    /* XOpenDisplay() calls gethostbyname() */
     Display *dpy;
     int i;
     char *nm;
 
     if (__isString(dpyName))
-	nm = (char *) __stringVal(dpyName);
+        nm = (char *) __stringVal(dpyName);
     else {
-	nm = NULL;
+        nm = NULL;
     }
     dpy = XOpenDisplay(nm);
 
     if (dpy) {
-	static int firstCall = 1;
-	OBJ dpyID;
-
-	dpyID = __MKEXTERNALADDRESS(dpy);
-
-	if (firstCall) {
-	    firstCall = 0;
-	    XSetErrorHandler(__XErrorHandler__);
-	    XSetIOErrorHandler(__XIOErrorHandler__);
-	}
-	RETURN (dpyID);
+        static int firstCall = 1;
+        OBJ dpyID;
+
+        dpyID = __MKEXTERNALADDRESS(dpy);
+
+        if (firstCall) {
+            firstCall = 0;
+            XSetErrorHandler(__XErrorHandler__);
+            XSetIOErrorHandler(__XIOErrorHandler__);
+        }
+        RETURN (dpyID);
     }
 %}.
     ^ nil
@@ -10994,7 +10995,7 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.425 2003-02-11 21:12:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.426 2003-02-12 13:29:45 stefan Exp $'
 ! !
 
 XWorkstation initialize!