--- a/Class.st	Fri Jul 20 15:05:23 2012 +0200
+++ b/Class.st	Fri Jul 20 15:22:43 2012 +0200
@@ -4275,7 +4275,7 @@
      or the fallBack (for backward compatibility)"
 
     |owner cls meta allVersionMethodNames nameOfVersionMethodForManager nameOfOldVersionMethod
-     tryVersionFromVersionMethod|
+     tryVersionFromVersionMethod prefixOfVersionMethodSelector|
 
     (owner := self owningClass) notNil ifTrue:[^ owner findVersionMethodOfManager:aSourceCodemanagerOrNil].
 
@@ -4297,7 +4297,12 @@
     meta := self theMetaclass.
     cls := self theNonMetaclass.
 
-    allVersionMethodNames := meta methodDictionary keys select:[:sel | sel startsWith:AbstractSourceCodeManager prefixOfVersionMethodSelector].
+    prefixOfVersionMethodSelector := 
+        AbstractSourceCodeManager notNil 
+            ifTrue: [AbstractSourceCodeManager prefixOfVersionMethodSelector ]
+            ifFalse:[ 'version_' ].     "/ sigh - for standalone apps without libbasic3
+
+    allVersionMethodNames := meta methodDictionary keys select:[:sel | sel startsWith:prefixOfVersionMethodSelector].
 
     aSourceCodemanagerOrNil notNil ifTrue:[
         nameOfVersionMethodForManager := aSourceCodemanagerOrNil nameOfVersionMethodInClasses.
@@ -5467,11 +5472,11 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.605 2012-06-01 10:45:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.606 2012-07-20 13:22:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.605 2012-06-01 10:45:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.606 2012-07-20 13:22:43 cg Exp $'
 !
 
 version_SVN