--- a/SmalltalkChunkFileSourceWriter.st	Wed Jun 29 16:12:28 2011 +0200
+++ b/SmalltalkChunkFileSourceWriter.st	Wed Jun 29 16:12:59 2011 +0200
@@ -121,7 +121,7 @@
                 |source|
 
                 source := versionMethod source.
-                (source isEmptyOrNil or:[(source startsWith:nonMeta nameOfVersionMethod) not]) ifTrue:[
+                (source isEmptyOrNil or:[(source startsWith:nonMeta nameOfOldVersionMethod) not]) ifTrue:[
                     "something bad happend to the classes code"
 
                     Class fileOutErrorSignal 
@@ -494,9 +494,9 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.13 2011-06-28 14:00:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.14 2011-06-29 14:12:59 cg Exp $'
 !
 
 version_SVN
-    ^ ' Id: SmalltalkChunkFileSourceWriter.st 10643 2011-06-08 21:53:07Z vranyj1  '
+    ^ '§ Id: SmalltalkChunkFileSourceWriter.st 10643 2011-06-08 21:53:07Z vranyj1  §'
 ! !