--- a/AbstractFileBrowser.st	Tue Sep 25 12:31:40 2018 +0200
+++ b/AbstractFileBrowser.st	Wed Sep 26 12:36:28 2018 +0200
@@ -1501,6 +1501,12 @@
             isVisible: cBrowserMenuItemVisible
           )
          (MenuItem
+            label: 'STXGDB Debugger'
+            itemValue: doOpenGDBApplication
+            translateLabel: true
+            isVisible: stxgdbMenuItemVisible
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
@@ -1566,6 +1572,7 @@
       )
 
     "Modified: / 29-10-2017 / 11:13:49 / cg"
+    "Modified: / 26-09-2018 / 12:07:26 / Claus Gittinger"
 !
 
 directoryMenu
@@ -7047,6 +7054,20 @@
     "Modified: / 21-07-2012 / 12:28:36 / cg"
 !
 
+doOpenGDBApplication
+    "the GDBApplication is a cg-private debugging tool"
+
+    |destDir|
+
+    (Smalltalk at:#'GDBApplication') isNil ifTrue:[
+        Smalltalk loadPackage:'cg:tools'
+    ].
+    destDir := self currentDirectory.
+    (Smalltalk at:#'GDBApplication') openOn:destDir
+
+    "Created: / 26-09-2018 / 12:09:32 / Claus Gittinger"
+!
+
 doOpenMonticelloBrowser
     MCMczReader isNil ifTrue:[ Smalltalk loadPackage:'stx:goodies/monticello'].
 
@@ -9247,7 +9268,9 @@
 !AbstractFileBrowser methodsFor:'queries'!
 
 cBrowserLoaded
-    ^ CBrowser::Browser notNil
+    ^ (Smalltalk at:#'CBrowser::Browser') notNil
+
+    "Modified: / 26-09-2018 / 12:06:32 / Claus Gittinger"
 !
 
 cBrowserMenuItemVisible
@@ -9388,6 +9411,18 @@
     ^ true
 !
 
+stxgdbLoaded
+    ^ (Smalltalk at:#GDBApplication) notNil
+
+    "Created: / 26-09-2018 / 12:06:23 / Claus Gittinger"
+!
+
+stxgdbMenuItemVisible
+    ^ self stxgdbLoaded or:[ OperatingSystem getLoginName = 'cg' ]
+
+    "Created: / 26-09-2018 / 12:05:45 / Claus Gittinger"
+!
+
 systemIsDOS
     ^ OperatingSystem isMSDOSlike
 !