--- a/CVSSourceCodeManager.st	Tue Jul 14 16:00:04 2009 +0200
+++ b/CVSSourceCodeManager.st	Mon Jul 20 16:44:28 2009 +0200
@@ -3838,7 +3838,13 @@
     "Modified: / 13-09-2006 / 18:31:52 / cg"
 !
 
-reportHistoryLogSince:timeGoal filterSTSources:filter filterUser:userFilter filterRepository:filterRep filterModules:filterModules inTo:aBlock
+reportHistoryLogSince:timeGoal 
+    filterSTSources:filterSTSourcesBool 
+    filterUser:userFilter 
+    filterRepository:filterRep 
+    filterModules:filterModules
+    inTo:aBlock
+
     "process a full historyLog, evaluate aBlock for each entry, passing 
      the logs info in a dictionary.
      This walks over all possible repositories.
@@ -3874,7 +3880,7 @@
 
         cmd := cmd , ' history -x ARM -a'.
         (timeGoal notEmptyOrNil) ifTrue:[
-            cmd := cmd , ' -D "' , timeGoal , '"'.
+            cmd := cmd , ' -D "' , timeGoal printString , '"'.
         ].
         userFilter notNil ifTrue:[
             userFilter isString ifTrue:[
@@ -3924,10 +3930,8 @@
                             fileName := words at:7.
                             user := words at:5.
 
-                            (filter not 
-                            or:[fileName endsWith:'.st']) ifTrue:[
-                                (userFilter isNil
-                                or:[userFilter includes:user]) ifTrue:[
+                            (filterSTSourcesBool not or:[fileName endsWith:'.st']) ifTrue:[
+                                (userFilter isNil or:[userFilter includes:user]) ifTrue:[
 
                                     date := words at:2.
                                     time := words at:3.
@@ -4743,7 +4747,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.362 2009-07-14 14:00:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.363 2009-07-20 14:44:28 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!