diff -r d1923697d456 -r b72473dda659 UIPainter.st
--- a/UIPainter.st	Wed Feb 06 11:30:06 2008 +0100
+++ b/UIPainter.st	Mon Feb 11 14:24:36 2008 +0100
@@ -4269,13 +4269,16 @@
 doBrowseViewClass
     "opens a browser on the selected widgets class"
 
-    |selection|
+    |selection widget|
 
     ((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[
-        selection first class browse
-    ] ifFalse: [
-        selection class browse
-    ]
+        widget := selection first
+    ] ifFalse:[
+        widget := selection
+    ].
+
+    widget isScrollWrapper ifTrue:[ widget := widget scrolledView].
+    widget class browse
 !
 
 doDefineClassAndSelector