diff -r 1fd8091099ef -r 03a728bf5b2a SourceCodeManagerUtilitiesForContainerBasedManagers.st
--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Tue Oct 30 15:25:24 2012 +0100
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Tue Oct 30 15:34:22 2012 +0100
@@ -165,7 +165,7 @@
      If the argument, aLogInfoOrNil isNil, ask interactively for log-message.
      If doCheckClass is true, the class is checked for send of halts etc."
 
-    |logMessage checkinInfo mgr pri resources|
+    |logMessage checkinInfo mgr pri|
 
     aClass isLoaded ifFalse:[
         self information:(resources string:'Cannot checkin unloaded classes (%1)' with:aClass name).
@@ -192,8 +192,6 @@
         ) ifFalse:[^ false].
     ].
 
-    resources := self classResources.
-
     (self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[
         (self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[
 "/            self warn:'did not create a container for ''' , aClass name , ''''.
@@ -312,7 +310,7 @@
     "check a bunch of classes into the source repository.
      If the argument, aLogInfoOrStringNil isNil, ask interactively for log-message."
 
-    |classes allClasses checkinInfoOrString resources yesOrNoToAll unchangedClasses|
+    |classes allClasses checkinInfoOrString yesOrNoToAll unchangedClasses|
 
     "/ ignore private classes
     classes := aCollectionOfClasses select:[:aClass | aClass owningClass isNil].
@@ -330,8 +328,6 @@
         ^ self checkinClass:classes first withInfo:aLogInfoOrStringNil withCheck:doCheckClasses usingManager:aManagerOrNil.
     ].
 
-    resources := self classResources.
-
     "ask once, for all classes"
     aLogInfoOrStringNil isNil ifTrue:[
         checkinInfoOrString := self 
@@ -406,9 +402,7 @@
     "checkin a projects extensions into the source repository.
      If the argument, aLogInfoOrStringOrNil isNil, ask interactively for log-message."
 
-    |logMessage checkinInfo mgr pri resources module directory containerFileName methodSource|
-
-    resources := self classResources.
+    |logMessage checkinInfo mgr pri module directory containerFileName methodSource|
 
     "/ the following is wrong - must ask the projectDefinition !!
     aPackageID asPackageId projectDefinitionClass notNil ifTrue:[
@@ -711,9 +705,9 @@
 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.2 2012-09-04 12:09:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.3 2012-10-30 14:34:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.2 2012-09-04 12:09:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.3 2012-10-30 14:34:22 cg Exp $'
 ! !