--- a/AbstractFileBrowser.st	Mon Oct 03 20:50:25 2011 +0200
+++ b/AbstractFileBrowser.st	Tue Oct 04 13:41:55 2011 +0200
@@ -1155,7 +1155,7 @@
             label: 'C Browser'
             itemValue: doOpenCBrowser
             translateLabel: true
-            isVisible: cBrowserLoaded
+            isVisible: cBrowserMenuItemVisible
           )
          (MenuItem
             label: '-'
@@ -1208,7 +1208,7 @@
         nil
       )
 
-    "Modified: / 17-02-2011 / 13:23:47 / cg"
+    "Modified: / 04-10-2011 / 13:40:06 / cg"
 !
 
 cvsMenu
@@ -5525,8 +5525,13 @@
 doOpenCBrowser
     |destDir|
 
+    (CBrowser isNil or:[ CBrowser::Browser isNil ]) ifTrue:[
+        Smalltalk loadPackage:'exept:CC'
+    ].
     destDir := self currentDirectory.
     CBrowser::Browser openIn:destDir pathName
+
+    "Modified: / 04-10-2011 / 13:41:31 / cg"
 !
 
 doOpenExplorer
@@ -7507,6 +7512,7 @@
     ^ false
 ! !
 
+
 !AbstractFileBrowser methodsFor:'presentation'!
 
 getModeString:modeBits
@@ -7570,6 +7576,12 @@
     ^ CBrowser::Browser notNil
 !
 
+cBrowserMenuItemVisible
+    ^ self cBrowserLoaded or:[ OperatingSystem getLoginName = 'cg' ]
+
+    "Created: / 04-10-2011 / 13:40:38 / cg"
+!
+
 getAllFilesAsStrings
     "raise an error: must be redefined in concrete subclass(es)"
 
@@ -8422,9 +8434,9 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.469 2011-09-07 09:17:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.470 2011-10-04 11:41:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.469 2011-09-07 09:17:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.470 2011-10-04 11:41:55 cg Exp $'
 ! !