--- a/Tools__NewSystemBrowser.st	Tue Nov 29 14:05:12 2011 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Nov 29 15:05:57 2011 +0100
@@ -54479,9 +54479,10 @@
 !
 
 showMessageWhileTest
-    self showMessage:'Tools::NewSystemBrowser >> testProgressAction'
+    self 
+        showMessage:'Tools::NewSystemBrowser >> testProgressAction'
         while:[
-            1 to:100 do:[:i | 
+            (1 to:100) do:[:i | 
                 (ProgressNotification new)
                     messageText:('Tools::NewSystemBrowser >> testProgressAction (%1 done)' 
                                 bindWith:i);
@@ -54493,7 +54494,7 @@
         ]
 
     "Created: / 28-08-2010 / 10:32:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 29-11-2011 / 11:49:34 / cg"
+    "Modified: / 29-11-2011 / 15:05:31 / cg"
 ! !
 
 !NewSystemBrowser methodsFor:'user actions-profiler'!
@@ -54505,19 +54506,21 @@
         label:'Visual Profiler' 
         forSpec:#visualProfilerSpec 
         setupWith: [:browser|
-            browser profilerStatistics value: statistics]
+            browser profilerStatistics value: statistics
+        ]
 
     "Created: / 09-10-2007 / 22:05:36 / janfrog"
+    "Modified (format): / 29-11-2011 / 14:49:08 / cg"
 ! !
 
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1660 2011-11-29 12:26:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1661 2011-11-29 14:05:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1660 2011-11-29 12:26:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1661 2011-11-29 14:05:57 cg Exp $'
 !
 
 version_SVN