--- a/Tools_OrganizerCanvas.st	Mon Sep 14 19:48:36 2009 +0200
+++ b/Tools_OrganizerCanvas.st	Mon Sep 14 19:49:22 2009 +0200
@@ -4751,11 +4751,13 @@
         ].
 
         self selectedDiagramProject value:(packages firstIfEmpty:nil) withoutNotifying:self.
-        self withWaitCursorDo:[
-            diagramApp
-                packages:packages;
-                generateDiagram;
-                selectClasses:selectedClasses.
+        diagramApp notNil ifTrue:[
+            self withWaitCursorDo:[
+                diagramApp
+                    packages:packages;
+                    generateDiagram;
+                    selectClasses:selectedClasses.
+            ]
         ]
     ].
 !
@@ -4889,5 +4891,5 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.34 2009-03-19 16:16:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.35 2009-09-14 17:49:22 cg Exp $'
 ! !