--- a/DirectoryView.st	Fri May 13 01:59:52 2016 +0200
+++ b/DirectoryView.st	Sat May 14 15:41:12 2016 +0200
@@ -497,6 +497,10 @@
 !
 
 readMonitoringDirectory
+    "this is a very ugly piece of code - 
+     left in as a bad example of how to make ST look slow...
+     DO NOT USE IT, but read to learn"
+     
     |readBlock|
 
     readTask notNil ifTrue: [readTask terminate].
@@ -528,8 +532,8 @@
                         
                         newRow := FileRow new fileName: fileName asFilename.
                         "/ cg: how stupid is that?
-                        "/ nearestFileRow := listOfFiles indexOf: (listOfFiles detect: [:fileRow| fileRow baseName > fileName baseName] ifNone: nil).
-                        nearestFileRow := listOfFiles findFirst:[:fileRow | fileRow baseName > fileName baseName].
+                        nearestFileRow := listOfFiles indexOf: (listOfFiles detect: [:fileRow| fileRow baseName > fileName baseName] ifNone: nil).
+                        "/ nearestFileRow := listOfFiles findFirst:[:fileRow | fileRow baseName > fileName baseName].
                         nearestFileRow = 0
                             ifTrue: [listOfFiles add: newRow]
                             ifFalse: [listOfFiles add: newRow beforeIndex: nearestFileRow].