--- a/Tools_OrganizerCanvas.st	Tue Nov 11 14:13:36 2008 +0100
+++ b/Tools_OrganizerCanvas.st	Tue Nov 11 15:17:29 2008 +0100
@@ -4098,15 +4098,17 @@
     |holder graphApp|
 
     (holder := builder bindingAt:#diagramApplicationModelHolder) isNil ifTrue:[
-        graphApp := OOM::MetricVisualizer new.
-        graphApp masterApplication:self.
-        graphApp selectedClassesHolder onChangeSend:#diagramClassSelectionChanged to:self.
-
-        holder := ValueHolder new.
-        holder value:graphApp.
-        builder aspectAt:#diagramApplicationModelHolder put: holder.
-
-        self packageFilter onChangeSend:#packageFilterChanged to:self.
+        OOM::MetricVisualizer notNil ifTrue:[
+            graphApp := OOM::MetricVisualizer new.
+            graphApp masterApplication:self.
+            graphApp selectedClassesHolder onChangeSend:#diagramClassSelectionChanged to:self.
+
+            holder := ValueHolder new.
+            holder value:graphApp.
+            builder aspectAt:#diagramApplicationModelHolder put: holder.
+
+            self packageFilter onChangeSend:#packageFilterChanged to:self.
+        ].
     ].
     ^ holder
 !
@@ -4839,5 +4841,5 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.29 2008-11-10 00:46:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.30 2008-11-11 14:17:29 cg Exp $'
 ! !