--- a/WorkspaceApplication.st	Thu Nov 07 14:45:05 2002 +0100
+++ b/WorkspaceApplication.st	Thu Nov 07 18:14:50 2002 +0100
@@ -643,7 +643,7 @@
 
     v := self addInspectorOn:(Smalltalk) basic:false suppressPseudoSlots:true.
     v fieldListLabel:'Name'.
-    self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Globals'.
+    self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Globals (Smalltalk)'.
 !
 
 addInspectorOn:aValue basic:isBasicInspector suppressPseudoSlots:suppressPseudoSlots
@@ -1290,5 +1290,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.45 2002-11-05 11:09:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.46 2002-11-07 17:14:50 cg Exp $'
 ! !