--- a/script2.stx	Thu Nov 03 13:57:30 2016 +0100
+++ b/script2.stx	Mon Nov 07 17:00:08 2016 +0100
@@ -5,20 +5,3 @@
 "/
 Workspace open.
 'done' printCR.
-
-"
-[
-  Delay waitForSeconds:10.
-  Process allInstances do:[:p |
-    p isDead ifFalse:[
-      p name print. ' ' print. p isSystemProcess printCR.
-p suspendedContext notNil ifTrue:[
-  p suspendedContext fullPrintAll.
-  '' printCR.
-].
-    ].
-  ].
-  Processor anyUserProcessAtAll printCR.
-  Smalltalk exit
-] fork.
-"