--- a/Tools__CheckinInfoDialog.st	Tue Sep 22 19:05:08 2009 +0200
+++ b/Tools__CheckinInfoDialog.st	Tue Sep 22 19:17:39 2009 +0200
@@ -193,12 +193,12 @@
     "
 !
 
-getCheckinInfoFor:aString initialAnswer:initialAnswer withQuickOption:withQuickOption
+getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption
     |dialog|
 
     dialog := self new.
     dialog 
-        description:aString; 
+        description:aClassNameOrPackageNameString; 
         logMessage:initialAnswer;
         withQuickOption:withQuickOption.
 
@@ -320,5 +320,5 @@
 !CheckinInfoDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.8 2007-01-16 14:59:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.9 2009-09-22 17:17:39 cg Exp $'
 ! !