--- a/AbstractLauncherApplication.st	Mon Oct 26 16:49:43 2009 +0100
+++ b/AbstractLauncherApplication.st	Mon Oct 26 17:19:31 2009 +0100
@@ -1550,13 +1550,23 @@
 inspectGlobalVariables
     "inspect globals"
 
+    WorkspaceApplication notNil ifTrue:[
+        "/ looks nicer...
+        WorkspaceApplication openWithGlobalsInspector.
+        ^ self.
+    ].
     Smalltalk inspect
 !
 
 inspectWorkspaceVariables
     "inspect workspace variables"
 
-    Workspace workspaceVariables inspect
+    WorkspaceApplication notNil ifTrue:[
+        "/ looks nicer...
+        WorkspaceApplication openWithWorkspaceVariableInspector.
+        ^ self.
+    ].
+    "/ Workspace workspaceVariables inspect
 !
 
 newProject 
@@ -6706,9 +6716,9 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.383 2009-10-22 17:41:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.384 2009-10-26 16:19:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.383 2009-10-22 17:41:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.384 2009-10-26 16:19:31 cg Exp $'
 ! !