# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1069146251 -3600
# Node ID adc5c9bdbab52599e2988c3312b88b6e4f884064
# Parent  a4de4f3a203fe47ccdd4c3bf1efd6ef08d803090
*** empty log message ***

diff -r a4de4f3a203f -r adc5c9bdbab5 Class.st
--- a/Class.st	Mon Nov 17 20:08:09 2003 +0100
+++ b/Class.st	Tue Nov 18 10:04:11 2003 +0100
@@ -135,7 +135,7 @@
      This extracts the relevant info from aString, asking
      the sourceCode manager (if there is one)"
 
-    |info mgr|
+    |mgr|
 
     "/
     "/ mhmh - ask the default manager
@@ -144,11 +144,18 @@
         "/
         "/ fallBack - assume CVS header
         "/
-        mgr := CVSSourceCodeManager
+        mgr := Smalltalk at:#CVSSourceCodeManager
     ].
-
-    info := mgr revisionInfoFromString:aString.
-    ^ info
+    "/
+    "/ care for standAlone apps which have no CVS manager included
+    "/
+    mgr isNil ifTrue:[
+        mgr := Smalltalk at:#AbstractSourceCodeManager
+    ].
+    mgr isNil ifTrue:[
+        ^ nil
+    ].
+    ^ mgr revisionInfoFromString:aString.
 !
 
 revisionStringFromSource:aMethodSourceString
@@ -4803,5 +4810,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.449 2003-11-13 11:29:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.450 2003-11-18 09:04:11 cg Exp $'
 ! !