--- a/SourceCodeManagerUtilities.st	Wed May 15 17:58:10 2013 +0200
+++ b/SourceCodeManagerUtilities.st	Fri May 17 01:43:10 2013 +0200
@@ -2126,7 +2126,7 @@
      module directory fileName nameSpace nameSpacePrefix
      info project nm creatingNew msg 
      answer doCheckinWithoutAsking forceCheckIn rslt note
-     requiredPackage|
+     requiredPackage classPackage|
 
     mgr isNil ifTrue:[^  false].
 
@@ -2136,10 +2136,10 @@
     ].
 
     className := aClass name.
-
-    aClass package ~= PackageId noProjectID ifTrue:[
-        module := aClass package asPackageId module.
-        directory := aClass package asPackageId directory.
+    classPackage := aClass package.
+    classPackage ~= PackageId noProjectID ifTrue:[
+        module := classPackage asPackageId module.
+        directory := classPackage asPackageId directory.
     ] ifFalse:[
         "/
         "/ defaults, if nothing at all is known
@@ -3880,10 +3880,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.276 2013-05-15 10:47:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.277 2013-05-16 23:43:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.276 2013-05-15 10:47:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.277 2013-05-16 23:43:10 cg Exp $'
 ! !