--- a/Class.st	Fri Jul 20 14:32:04 2012 +0100
+++ b/Class.st	Wed Jul 25 09:45:15 2012 +0100
@@ -303,12 +303,14 @@
 
     |idx|
 
+    name isNil ifTrue:[^ nil].
+
     idx := name lastIndexOf:$:.
     [idx > 1 and:[ (name at:(idx-1)) ~~ $: ]] whileTrue:[
-	idx := name lastIndexOf:$: startingAt:idx-2.
+        idx := name lastIndexOf:$: startingAt:idx-2.
     ].
     idx == 0 ifTrue:[
-	^ name
+        ^ name
     ].
 
     ^ name copyFrom:idx+1.
@@ -317,6 +319,8 @@
      Class nameWithoutPrefix:'Array'
      Class nameWithoutPrefix:'Tools::Array'
     "
+
+    "Modified: / 13-06-2012 / 14:41:21 / cg"
 !
 
 revisionInfoFromString:aString
@@ -4330,7 +4334,7 @@
      or the fallBack (for backward compatibility)"
 
     |owner cls meta allVersionMethodNames nameOfVersionMethodForManager nameOfOldVersionMethod
-     tryVersionFromVersionMethod|
+     tryVersionFromVersionMethod prefixOfVersionMethodSelector|
 
     (owner := self owningClass) notNil ifTrue:[^ owner findVersionMethodOfManager:aSourceCodemanagerOrNil].
 
@@ -4352,7 +4356,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.
@@ -5545,11 +5554,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.607 2012/07/22 09:10:54 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.607 2012/07/22 09:10:54 cg Exp §'
 !
 
 version_SVN