--- a/BrowserView.st	Mon Dec 23 11:34:16 1996 +0100
+++ b/BrowserView.st	Mon Dec 23 12:43:19 1996 +0100
@@ -1530,13 +1530,16 @@
     "show classes documentation (i.e. open doc-View on it)"
 
     self doClassMenu:[:currentClass |
-        HTMLDocumentView
+        |v|
+
+        v := HTMLDocumentView
             openFullOnText:(HTMLDocGenerator htmlDocOf:currentClass) 
-            inDirectory:(Smalltalk getSystemFileName:'doc/online/english')
+            inDirectory:(Smalltalk getSystemFileName:'doc/online/english').
+        v nameSpaceForExecution:(currentClass nameSpace).
     ]
 
     "Created: 18.5.1996 / 12:12:20 / cg"
-    "Modified: 20.5.1996 / 20:30:52 / cg"
+    "Modified: 23.12.1996 / 12:26:19 / cg"
 !
 
 classFileOut
@@ -3476,7 +3479,7 @@
         ].
         codeView explainAction:nil.
 
-        classCategoryListView notNil ifTrue:[
+        (classCategoryListView notNil and:[currentClass notNil]) ifTrue:[
             (currentClassCategory = currentClass category) ifFalse:[
                 currentClassCategory := currentClass category.
                 classCategoryListView setSelectElement:currentClassCategory
@@ -3487,7 +3490,7 @@
     ]
 
     "Created: 23.11.1995 / 11:32:03 / cg"
-    "Modified: 26.5.1996 / 17:05:46 / cg"
+    "Modified: 23.12.1996 / 12:24:16 / cg"
 !
 
 classTemplateFor:className in:cat private:isPrivate
@@ -8758,6 +8761,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.227 1996-12-23 10:34:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.228 1996-12-23 11:43:19 cg Exp $'
 ! !
 BrowserView initialize!