--- a/SystemBrowser.st	Tue Mar 14 20:30:21 2017 +0100
+++ b/SystemBrowser.st	Tue Mar 14 20:36:26 2017 +0100
@@ -2710,7 +2710,7 @@
         checkBlock := [:cls |
             (checkedClasses includes:cls) ifFalse:[
                 (cls isObsolete and:[cls isLoaded]) ifTrue:[
-                    Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
+                    Logger debug:'Browser method search: skipping obsolete class: %1' with:cls displayString
                 ] ifFalse:[
                     cls methodDictionary keysAndValuesDo:[:sel :method |
                         (aBlock value:cls value:method value:sel) ifTrue:[
@@ -2744,8 +2744,8 @@
     ].
     ^ list
 
-    "Created: / 24.1.1997 / 19:41:12 / cg"
-    "Modified: / 14.12.1999 / 14:59:02 / cg"
+    "Created: / 24-01-1997 / 19:41:12 / cg"
+    "Modified: / 14-03-2017 / 12:05:41 / cg"
 !
 
 allMethodsIn:aCollectionOfClasses where:aBlock
@@ -6509,7 +6509,7 @@
     checkBlock := [:cls |
         (checkedClasses includes:cls) ifFalse:[
             (cls isObsolete and:[cls isLoaded]) ifTrue:[
-                Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
+                Logger debug:'Browser method search: skipping obsolete class: %1' with:cls displayString
             ] ifFalse:[
                 aBlock numArgs == 1 ifTrue:[
                     cls methodDictionary keysAndValuesDo:[:sel :method |
@@ -6565,7 +6565,7 @@
     ].
     ^ list
 
-    "Modified: / 23-02-2017 / 16:52:55 / cg"
+    "Modified: / 14-03-2017 / 12:05:57 / cg"
 !
 
 findMethodsIn:aCollectionOfClasses where:aBlock