[Squeak-ja: 3815] ループしているプロセスの停止について

[久保 道]

また教えていただきたいことができましたので、
ご多忙中に恐縮ですがよろしくお願いいたします。
次のようなcodeを書いてdo it　しました。
arm := LineMorph from: 290 ＠ 300 to: 710 ＠ 300  color: Color black width: 5.
[[ arm openInWorld.
   ( Delay forSeconds: 1) wait] repeat] fork
当然loopになってしまい、止めたいのです。
そこで自由自在Squeak　p.277に習って
(ActiveWorld submorphs select: [:each | each isKindOf: PolygonMorph]) 
  do: [:each | each delete].
としてみましたが、効き目ありません。
もちろんAlt + .　もやってみましたけれど。
どうしたらよいでしょうか。
ご教示をお願いいたします。
久保　道