--- a/SourceCodeManagerUtilities.st	Wed Oct 22 22:03:20 2008 +0200
+++ b/SourceCodeManagerUtilities.st	Thu Oct 23 00:15:40 2008 +0200
@@ -2202,7 +2202,7 @@
     ].
 
     info notNil ifTrue:[
-        (info includesKey:#revision) ifFalse:[
+        (info revision notNil) ifFalse:[
             aStream nextPutLine:'WARNING:'; cr.
             aStream nextPutLine:'  The class seems not to be loaded from the repository.'.
             aStream nextPutLine:'  Check carefully before checking anything in.'.
@@ -2952,5 +2952,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.175 2008-09-25 16:15:10 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.176 2008-10-22 22:15:40 cg Exp $'
 ! !