--- a/SourceCodeManagerUtilities.st	Fri Oct 23 10:47:00 2009 +0200
+++ b/SourceCodeManagerUtilities.st	Mon Oct 26 17:36:39 2009 +0100
@@ -616,7 +616,7 @@
      If the argument, aLogInfoOrStringOrNil isNil, ask interactively for log-message."
 
     |logMessage checkinInfo mgr pri resources module directory containerFileName s 
-     methodSource methodsSortedByName|
+     methodSource methodsSortedByName defClass|
 
     resources := self classResources.
 
@@ -687,15 +687,17 @@
                 s cr.
             ].
 
-            "/ make sure, an extensionVersion_XXX method is included...
-            "/ (notice: no need to support a secondary backward compatible non-manager related version method here)
-            (methodsSortedByName contains:[:aMethod | aMethod selector == mgr nameOfVersionMethodForExtensions]) ifFalse:[
-                s nextPutLine:('!!%1 class methodsFor:''documentation''!!' 
-                        bindWith:(ProjectDefinition definitionClassForPackage:aPackageID) name).
-                s cr.
-                s nextChunkPut:
-                    (mgr versionMethodTemplateForSmalltalkFor:(mgr nameOfVersionMethodForExtensions)).
-                s space; nextPutChunkSeparator.
+            defClass := ProjectDefinition definitionClassForPackage:aPackageID.
+            defClass notNil ifTrue:[
+                "/ make sure, an extensionVersion_XXX method is included...
+                "/ (notice: no need to support a secondary backward compatible non-manager related version method here)
+                (methodsSortedByName contains:[:aMethod | aMethod selector == mgr nameOfVersionMethodForExtensions]) ifFalse:[
+                    s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
+                    s cr.
+                    s nextChunkPut:
+                        (mgr versionMethodTemplateForSmalltalkFor:(mgr nameOfVersionMethodForExtensions)).
+                    s space; nextPutChunkSeparator.
+                ].
             ].
 
             methodSource := s contents.
@@ -3168,9 +3170,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.195 2009-10-12 17:27:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.196 2009-10-26 16:36:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.195 2009-10-12 17:27:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.196 2009-10-26 16:36:39 cg Exp $'
 ! !