--- a/TSTree.st	Mon Jul 08 15:05:21 2013 +0200
+++ b/TSTree.st	Mon Jul 08 15:05:29 2013 +0200
@@ -175,7 +175,13 @@
 !
 
 do: aBlock
-	self nodesDo: [:ea | ea value ifNotNilDo: aBlock]
+    self nodesDo: [:ea | 
+        |t|
+
+        (t := ea value) notNil ifTrue:[
+            aBlock value:t
+        ]
+    ].
 !
 
 initializeWithKey: aCharacter
@@ -302,6 +308,6 @@
 !TSTree class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/TSTree.st,v 1.4 2013-06-25 11:22:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TSTree.st,v 1.5 2013-07-08 13:05:29 cg Exp $'
 ! !