--- a/AbstractLauncherApplication.st	Fri Sep 06 20:56:57 2002 +0200
+++ b/AbstractLauncherApplication.st	Fri Sep 06 22:51:09 2002 +0200
@@ -1532,6 +1532,7 @@
 
                         area := Rectangle fromUser.
                         (area width > 0 and:[area height > 0]) ifTrue:[
+                            Delay waitForSeconds:2.
                             self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
                         ]
                       ] 
@@ -6463,5 +6464,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.211 2002-08-23 08:54:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.212 2002-09-06 20:51:09 cg Exp $'
 ! !