--- a/ModalBox.st	Mon Dec 20 00:42:23 1993 +0100
+++ b/ModalBox.st	Mon Dec 20 18:29:11 1993 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.6 1993-12-13 17:10:15 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.7 1993-12-20 17:28:57 claus Exp $
 
 written Jan 90 by claus
 '!
@@ -252,7 +252,7 @@
     "this is a kludge - we do not have multiple processes, therefore
      we start another dispatch loop, which exits when control is lost"
 
-    device dispatchWhile:[haveControl]
+    device dispatchModalWhile:[haveControl]
 !
 
 leaveControl