--- a/Tools__CheckinInfoDialog.st	Mon Mar 12 12:52:16 2012 +0100
+++ b/Tools__CheckinInfoDialog.st	Mon Mar 12 13:13:08 2012 +0100
@@ -87,6 +87,7 @@
            (ComboListSpec
               name: 'ComboList1'
               layout: (LayoutFrame 180 0.0 38 0 0 1.0 58 0)
+              model: logHistoryHeadLineSelectionHolder
               comboList: logHistoryHeadLines
               useIndex: true
             )
@@ -234,7 +235,7 @@
     "Modified: / 12-03-2012 / 12:39:00 / cg"
 !
 
-getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption logHistory:logHistory
+getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption logHistory:logHistoryArg
     |dialog warnMessage|
 
     warnMessage := nil.
@@ -244,7 +245,8 @@
         dialog 
             description:aClassNameOrPackageNameString; 
             logMessage:initialAnswer;
-            withQuickOption:withQuickOption.
+            withQuickOption:withQuickOption;
+            logHistory:logHistoryArg.
 
         dialog warningMessageHolder value:warnMessage.
         dialog open.
@@ -268,7 +270,6 @@
      self getCheckinInfoFor:'hello' initialAnswer:'bla'
     "
 
-    "Modified: / 06-07-2010 / 11:40:00 / cg"
     "Created: / 12-03-2012 / 12:36:26 / cg"
 ! !
 
@@ -302,6 +303,10 @@
     self isStableHolder value:aBoolean
 !
 
+logHistory:something
+    logHistory := something.
+!
+
 logMessage
     ^ self logMessageHolder value
 !
@@ -420,6 +425,10 @@
 
 !CheckinInfoDialog class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.15 2012-03-12 12:13:08 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.14 2012-03-12 11:52:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.15 2012-03-12 12:13:08 cg Exp $'
 ! !