--- a/SourceCodeManagerUtilities.st	Sat Mar 03 12:22:10 2012 +0100
+++ b/SourceCodeManagerUtilities.st	Sun Mar 04 16:56:42 2012 +0100
@@ -880,12 +880,7 @@
      If askForRevision is false, check-out the newest version.
      Return a changeSet or nil (if any error occurred)"
 
-    |resources directory module file
-     inChangeSet extensionMethods
-     aStream sourceToLoad rev msg newestRev
-     listHere listRep diffSet 
-     changed onlyHere onlyInRep answer labels values singleChangeSelector
-     changedClasses default |
+    |resources directory module file aStream sourceToLoad rev msg newestRev |
 
     resources := self classResources.
 
@@ -906,7 +901,7 @@
                 msg := msg , '\' , (resources string:'Newest in reporitory is %1.' with:newestRev)
             ].
 
-            rev := SourceCodeManagerUtilities
+            rev := self
                     askForExistingRevision:msg 
                     title:'CheckOut from repository' 
                     class:nil 
@@ -1841,10 +1836,10 @@
                 containerPackage := pkg copyFrom:(containerModule size + 2).
             ].
             containerModule size == 0 ifTrue:[
-                containerModule := (SourceCodeManagerUtilities lastModule ) ? Project current repositoryModule.
+                containerModule := (self class lastModule ) ? Project current repositoryModule.
             ].
             containerPackage size == 0 ifTrue:[
-                containerPackage := (SourceCodeManagerUtilities lastPackage ) ? Project current package.
+                containerPackage := (self class lastPackage ) ? Project current package.
             ].
             answer := self confirmWithCancel:(resources 
                                                 string:'The class %3 seems to have no (valid) repository information.\\I assume you want to check it out from: %1/%2.' 
@@ -1853,7 +1848,7 @@
                                                 with:currentClass name allBold) withCRs.
             answer isNil ifTrue:[^ self "cancelled"].
             answer ifFalse:[
-                rslt := SourceCodeManagerUtilities
+                rslt := self
                     askForContainer:(resources string:'The class seems to have no repository information.\\Do you want to checkOut from an existing containers contents ?')
                     title:'Container to load from' note:nil 
                     initialModule:containerModule 
@@ -1870,7 +1865,7 @@
                 containerFile := rslt at:#fileName.
             ].
 
-"/            rslt := SourceCodeManagerUtilities
+"/            rslt := self
 "/                askForContainer:(resources string:'The class seems to have no (valid) repository information.\\Do you want to check it out from an existing container ?')
 "/                title:'Container to checkOut' note:nil 
 "/                initialModule:containerModule 
@@ -1920,7 +1915,7 @@
             msg := msg , '\' , (resources string:'Newest in repository is %1.' with:newestRev)
         ].
 
-        rev := SourceCodeManagerUtilities
+        rev := self
                     askForExistingRevision:msg 
                     title:'CheckOut from repository' 
                     class:currentClass.
@@ -2531,7 +2526,7 @@
                                            with:newestRev)
         ].
 
-        rev := SourceCodeManagerUtilities
+        rev := self
                     askForExistingRevision:msg 
                     title:'Compare with repository' 
                     class:classToCompare.
@@ -4376,9 +4371,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.242 2012-02-28 11:15:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.243 2012-03-04 15:56:42 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.242 2012-02-28 11:15:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.243 2012-03-04 15:56:42 stefan Exp $'
 ! !