--- a/AbstractLauncherApplication.st	Wed Oct 29 13:06:17 2008 +0100
+++ b/AbstractLauncherApplication.st	Thu Oct 30 12:27:14 2008 +0100
@@ -1922,22 +1922,18 @@
      let user specify a rectangular area on the screen
      and save its contents."
 
-
-    Processor 
-        addTimedBlock:[
-                        |area|
-
-                        [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
-
-                        area := Rectangle fromUser.
-                        (area width > 0 and:[area height > 0]) ifTrue:[
-                            10 timesRepeat:[ Screen current beep. Delay waitForSeconds:1. ].
-                            self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
-                        ]
-                      ] 
-        afterSeconds:0.5
-
-    "Modified: / 18.8.1998 / 15:00:42 / cg"
+    |area|
+
+    [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
+
+    area := Rectangle fromUser.
+    (area width > 0 and:[area height > 0]) ifTrue:[
+        [
+            10 timesRepeat:[ Screen current beep. Delay waitForSeconds:1. ].
+            self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
+        ] fork
+    ]
+
 !
 
 showFlyByWindowInformation
@@ -6666,5 +6662,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.365 2008-10-26 13:16:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.366 2008-10-30 11:27:14 cg Exp $'
 ! !