--- a/WorkspaceApplication.st	Wed Jul 05 09:42:02 2006 +0200
+++ b/WorkspaceApplication.st	Wed Jul 05 16:21:17 2006 +0200
@@ -840,10 +840,16 @@
 addClassVariableInspector
     |v|
 
+    ClassVariablesInspectorView isNil ifTrue:[
+        self error:'missing class: "ClassVariablesInspectorView"'.
+        ^ self.
+    ].
     v := self addInspectorOn:Smalltalk inspectorClass:ClassVariablesInspectorView suppressPseudoSlots:true.
 
     v fieldListLabel:'Name'.
     self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Class Variables'.
+
+    "Modified: / 05-07-2006 / 15:37:49 / cg"
 !
 
 addEvaluationWorkspace
@@ -875,10 +881,17 @@
 addGlobalVariableInspector
     |v|
 
+    SmalltalkInspectorView isNil ifTrue:[
+        self error:'missing class: "SmalltalkInspectorView"'.
+        ^ self.
+    ].
+
     v := self addInspectorOn:Smalltalk inspectorClass:SmalltalkInspectorView suppressPseudoSlots:true.
 
     v fieldListLabel:'Name'.
     self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Globals (Smalltalk)'.
+
+    "Modified: / 05-07-2006 / 15:37:27 / cg"
 !
 
 addInspectorOn:aValue basic:isBasicInspector suppressPseudoSlots:suppressPseudoSlots
@@ -1598,5 +1611,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.113 2006-03-31 09:14:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.114 2006-07-05 14:21:17 cg Exp $'
 ! !