--- a/BrowserView.st	Tue Aug 10 19:37:02 1999 +0200
+++ b/BrowserView.st	Tue Aug 10 20:03:18 1999 +0200
@@ -2825,7 +2825,7 @@
             cls := cls soleInstance
         ].
 
-        cls isNamespace ifTrue:[
+        (cls isNamespace and:[cls ~~ Smalltalk]) ifTrue:[
             cls fileOutDefinitionOn:aStream
         ] ifFalse:[
 
@@ -12045,7 +12045,7 @@
 setAcceptActionForClass
     "tell the codeView what to do on accept and explain"
 
-    currentClass isNamespace ifTrue:[
+    (currentClass isNamespace and:[currentClass ~~ Smalltalk]) ifTrue:[
         codeView acceptAction:nil
     ] ifFalse:[
         codeView acceptAction:[:theCode |
@@ -13653,6 +13653,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.532 1999-07-26 14:04:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.533 1999-08-10 18:03:18 cg Exp $'
 ! !
 BrowserView initialize!