--- a/AbstractSourceCodeManager.st	Tue Oct 06 16:59:42 2009 +0200
+++ b/AbstractSourceCodeManager.st	Wed Oct 07 14:12:30 2009 +0200
@@ -728,6 +728,8 @@
 
     cls := aClass theMetaclass.
 
+    self assert: cls programmingLanguage isSmalltalk.
+
     mthd := Compiler compile:  
 methodName , '
     ^ ''' , newRevisionString , '''
@@ -1213,6 +1215,12 @@
     "Created: / 09-11-2006 / 15:24:57 / cg"
 !
 
+isVersionMethodSelector: selector 
+
+   ^ selector == #version 
+        or:[selector startsWith: 'version_']
+!
+
 nameOfVersionMethodInClasses
     ^ #'version'
 ! !
@@ -1626,7 +1634,7 @@
     "
      self ensureDollarsInVersionMethod:'foo ^ ''hello'' ' 
      self ensureDollarsInVersionMethod:'foo ^ ''   hello   '' '    
-     self ensureDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.217 2009-09-29 16:16:11 fm Exp $'' '      
+     self ensureDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.218 2009-10-07 12:12:30 fm Exp $'' '      
     -- errors:
      self ensureDollarsInVersionMethod:'foo ^ ''$Head'' '    
      self ensureDollarsInVersionMethod:'foo ^ ''Header$'' '    
@@ -1640,7 +1648,7 @@
     ^ aString copyWithout: $$.
 
     "
-        self ensureNoDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.217 2009-09-29 16:16:11 fm Exp $'' '           
+        self ensureNoDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.218 2009-10-07 12:12:30 fm Exp $'' '           
         self ensureNoDollarsInVersionMethod:'foo ^ ''$Head'' '                
         self ensureNoDollarsInVersionMethod:'foo ^ ''Header$'' '             
     "
@@ -2604,11 +2612,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.217 2009-09-29 16:16:11 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.218 2009-10-07 12:12:30 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.217 2009-09-29 16:16:11 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.218 2009-10-07 12:12:30 fm Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!