--- a/WorkspaceApplication.st	Mon Mar 12 10:55:11 2007 +0100
+++ b/WorkspaceApplication.st	Mon Mar 12 10:55:55 2007 +0100
@@ -1422,7 +1422,9 @@
     <resource: #programMenu >
 
     ^ [
-        |doIts m classHistory currentClass|
+        |doIts m classHistory currentClass cmdLabelLen|
+
+        cmdLabelLen := 40.
 
         doIts := Workspace doItHistory.
         doIts size > 0 ifTrue:[
@@ -1431,8 +1433,8 @@
                 |lines label item|
 
                 label := doItEntry withoutLeadingSeparators asStringCollection first.
-                (label size > 20) ifTrue:[
-                    label := (label contractTo:20)
+                (label size > cmdLabelLen) ifTrue:[
+                    label := (label contractTo:cmdLabelLen)
                 ] ifFalse:[
                     (lines size > 1) ifTrue:[
                         label := label , '...'
@@ -1454,6 +1456,8 @@
        ].
         m
     ].
+
+    "Modified: / 12-03-2007 / 08:57:56 / cg"
 !
 
 redoRecentDoItMenu
@@ -1645,5 +1649,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.128 2007-03-01 20:28:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.129 2007-03-12 09:55:55 cg Exp $'
 ! !