--- a/extensions.st	Thu Mar 21 17:09:27 2013 +0100
+++ b/extensions.st	Thu Mar 21 17:37:05 2013 +0100
@@ -90,7 +90,7 @@
 asClassDefinition
     ^ MCClassDefinition
         name: self name
-        superclassName: self superclass name
+        superclassName: (self superclass isNil ifTrue:['nil'] ifFalse:[self superclass name])
         traitComposition: self traitCompositionString
         classTraitComposition: self class traitCompositionString
         category: self category 
@@ -322,9 +322,14 @@
 !Tools::NewSystemBrowser methodsFor:'menu actions-monticello'!
 
 projectMenuMonticelloCommit
+    | packageName package workingCopy |
 
-    | packageName package workingCopy |
     packageName := self theSingleSelectedProject.
+    packageName isNil ifTrue:[
+        Dialog information:'Please select a single project'.
+        ^  self.
+    ].
+
     package := MCPackage named: packageName.
     workingCopy := package workingCopy.
     MCCommitDialog new
@@ -334,45 +339,7 @@
     "Created: / 14-09-2010 / 22:54:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!Tools::NewSystemBrowser class methodsFor:'menu specs-monticello'!
-
-projectMonticelloMenu
-    "This resource specification was automatically generated
-     by the MenuEditor of ST/X."
-
-    "Do not manually edit this!! If it is corrupted,
-     the MenuEditor may not be able to read the specification."
-
-    "
-     MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#projectMonticelloMenu
-     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser projectMonticelloMenu)) startUp
-    "
-
-    <resource: #menu>
-
-    ^ 
-     #(Menu
-        (
-         (MenuItem
-            label: 'Commit'
-            itemValue: projectMenuMonticelloCommit
-            translateLabel: true
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            enabled: false
-            label: 'Not yet finished...'
-            translateLabel: true
-          )
-         )
-        nil
-        nil
-      )
-! !
-
-!UndefinedObject methodsFor:'*monticello'!
+!UndefinedObject methodsFor:'* monticello'!
 
 typeOfClass
     "Necessary to support disjoint class hierarchies."
@@ -443,5 +410,5 @@
 !stx_goodies_monticello class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.18 2013-03-13 14:04:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.19 2013-03-21 16:37:05 cg Exp $'
 ! !
\ No newline at end of file