--- a/SourceCodeManagerUtilities.st	Wed Feb 11 13:02:13 2009 +0100
+++ b/SourceCodeManagerUtilities.st	Thu Feb 12 16:58:20 2009 +0100
@@ -1777,7 +1777,7 @@
     "let user specify the source-repository values for aClass"
 
     | className
-     oldModule oldPackage oldFileName
+     "oldModule oldPackage" oldFileName
      module directory fileName nameSpace nameSpacePrefix
      info project nm mgr creatingNew msg 
      answer doCheckinWithoutAsking forceCheckIn resources rslt note
@@ -1955,9 +1955,12 @@
 
     info := aClass revisionInfo.
     info notNil ifTrue:[
-        (info includesKey:#repositoryPathName) ifFalse:[
+        (info repositoryPathName isNil) ifTrue:[
             info := nil
-        ]
+        ].
+"/        (info includesKey:#repositoryPathName) ifFalse:[
+"/            info := nil
+"/        ]
     ].
     info isNil ifTrue:[
         true "doCheckinWithoutAsking" ifFalse:[
@@ -2956,5 +2959,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.178 2008-11-14 13:27:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.179 2009-02-12 15:58:20 cg Exp $'
 ! !