--- a/ProjectBrowser.st Wed Feb 02 17:14:25 2000 +0100
+++ b/ProjectBrowser.st Wed Feb 02 17:45:25 2000 +0100
@@ -5749,7 +5749,7 @@
outputTo:diagnostic
errorTo:diagnostic
inDirectory:(p directory asFilename pathName)
- onError:[error := true].
+ onError:[:status | error := true].
].