--- a/Tools__ViewTreeApplication.st	Sun Aug 25 14:52:54 2019 +0200
+++ b/Tools__ViewTreeApplication.st	Mon Aug 26 09:08:45 2019 +0200
@@ -4413,8 +4413,9 @@
     |keptSelection|
 
     "/ the selection may change at any time (may it?)
-    (keptSelection := selection) isNil ifTrue:[^ nil].
-    keptSelection do:aOneArgBlock
+    (keptSelection := selection) notNil ifTrue:[
+        keptSelection do:aOneArgBlock
+    ].
 
     "Modified (format): / 12-02-2017 / 11:53:23 / cg"
 !
@@ -4425,9 +4426,10 @@
     |keptSelection|
 
     "/ the selection may change at any time (may it?)
-    (keptSelection := selection) isNil ifTrue:[^ nil].
-    "/ but if so, then start may no longer be valid here??
-    keptSelection from:start do:aOneArgBlock
+    (keptSelection := selection) notNil ifTrue:[
+        "/ but if so, then start may no longer be valid here??
+        keptSelection from:start do:aOneArgBlock
+    ].
 
     "Modified (comment): / 12-02-2017 / 11:52:57 / cg"
 !
@@ -4439,9 +4441,10 @@
     |keptSelection|
 
     "/ the selection may change at any time (may it?)
-    (keptSelection := selection) isNil ifTrue:[^ nil].
-    "/ but if so, then start and stop may no longer be valid here??
-    keptSelection from:start to:stop do:aOneArgBlock
+    (keptSelection := selection) notNil ifTrue:[
+        "/ but if so, then start and stop may no longer be valid here??
+        keptSelection from:start to:stop do:aOneArgBlock
+    ].
 
     "Modified (comment): / 12-02-2017 / 11:52:25 / cg"
 !
@@ -4452,8 +4455,9 @@
     |keptSelection|
 
     "/ the selection may change at any time (may it?)
-    (keptSelection := selection) isNil ifTrue:[^ nil].
-    keptSelection reverseDo:aOneArgBlock
+    (keptSelection := selection) notNil ifTrue:[
+        keptSelection reverseDo:aOneArgBlock
+    ].
 
     "Modified: / 12-02-2017 / 11:50:02 / cg"
 !