--- a/NewSystemBrowser.st	Tue Feb 08 11:18:06 2011 +0100
+++ b/NewSystemBrowser.st	Tue Feb 08 11:24:03 2011 +0100
@@ -27574,11 +27574,16 @@
             ]
         ]
     ].
+    fullPatchSet size == 0 ifTrue:[
+        Dialog information:'Patch-Set is empty; nothing to generate.'.
+        ^ self.
+    ].
 
     answer := OptionBox
-        request:('PatchSet contains %1 individual changes.\\Proceed how?' bindWith:fullPatchSet size)
-        buttonLabels:#('Browse' 'Save as PatchFile...' 'Save as Signed PatchFile...' 'Cancel')
-        values:#(browse saveAsPatchFile saveAsSignedPatchFile nil).   
+        request:('PatchSet contains %1 individual changes.\\Proceed how?' bindWith:fullPatchSet size) withCRs
+        label:'Patch-Set Generated'
+        buttonLabels:#('Cancel' 'Browse' 'Save as Signed Patch...' 'Save as Patch...' )
+        values:#(nil browse saveAsSignedPatchFile saveAsPatchFile ).   
 
     (answer isNil) ifTrue:[ ^ self ].
 
@@ -27600,7 +27605,7 @@
     ].
 
     "Created: / 08-02-2011 / 09:44:36 / cg"
-    "Modified: / 08-02-2011 / 11:17:22 / cg"
+    "Modified: / 08-02-2011 / 11:23:51 / cg"
 !
 
 generateProjectDefinitionsIn:classes
@@ -45017,11 +45022,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1510 2011-02-08 10:18:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1511 2011-02-08 10:24:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1510 2011-02-08 10:18:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1511 2011-02-08 10:24:03 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!