--- a/Tools__NewSystemBrowser.st	Sun Aug 21 12:26:18 2011 +0200
+++ b/Tools__NewSystemBrowser.st	Sun Aug 21 12:29:33 2011 +0200
@@ -42640,7 +42640,9 @@
         "/ immediate coloring, if code is not too large;
         "/ otherwise, do it in the background.
         code size < 2000 " 10000 " ifTrue:[
-            Error catch:[
+            Error handle:[:ex |
+                Transcript showCR:'error in syntaxHighlighter: ',ex description.
+            ] do:[
                 code := self syntaxHighlightedCodeFor:code method:mthd.
             ].
         ] ifFalse:[
@@ -42658,6 +42660,7 @@
         self showCode:code scrollToTop:doScrollToTop.
     ].
 
+    "/ scroll, for file-based classes (java, ruby, etc.)
     mthd sourceLineNumber ~~ 1 ifTrue:[
         doScrollToTop "ifTrue:" ifFalse:[
             codeView scrollToLine:mthd sourceLineNumber
@@ -42669,6 +42672,7 @@
 
     "Created: / 01-03-2000 / 11:38:57 / cg"
     "Modified (format): / 29-07-2011 / 11:45:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-08-2011 / 08:54:33 / cg"
 !
 
 showNothing
@@ -50077,11 +50081,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1596 2011-08-20 14:07:15 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1597 2011-08-21 10:29:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1596 2011-08-20 14:07:15 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1597 2011-08-21 10:29:33 cg Exp $'
 !
 
 version_SVN