--- a/Class.st	Tue Jun 28 15:07:41 2011 +0200
+++ b/Class.st	Tue Jun 28 15:16:04 2011 +0200
@@ -268,6 +268,23 @@
         classInstanceVariableNames:nil
 
     "Modified: 16.6.1997 / 11:53:58 / cg"
+!
+
+undeclared: name
+
+    "
+        Creates an 'undeclared' class, a placeholder for
+        superclass when loading/filing-in a class whose 
+        superclass does not exists.
+    "
+    Transcript showCR:'Smalltalk [info]: Declaring undeclared class: ', name.
+    ^Object subclass: name asSymbol
+            instanceVariableNames:''
+            classVariableNames:''
+            poolDictionaries:''
+            category:'* undeclared classes!! *'
+
+    "Created: / 08-11-2010 / 16:08:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Class class methodsFor:'helpers'!
@@ -337,6 +354,9 @@
         |i|
 
         i := l indexOfSubCollection:'$Header: '.
+	"JV @ 2009-12-13: Also search for '$Id: ' (because of SVN-only classes)"
+	i == 0 ifTrue:[
+	i := l indexOfSubCollection:'$Id: '].
         i ~~ 0 ifTrue:[
             line := l copyFrom:i.
             i := line lastIndexOf:$$.
@@ -453,6 +473,8 @@
     "Modified: 23.4.1996 / 15:56:58 / cg"
 ! !
 
+
+
 !Class methodsFor:'Compatibility-Dolphin'!
 
 defaultCategoryForDolphinClasses
@@ -621,6 +643,7 @@
     "Created: / 18.6.1998 / 22:08:45 / cg"
 ! !
 
+
 !Class methodsFor:'accessing'!
 
 addChangeRecordForClass:aClass andNotifyChangeOf:aspect
@@ -5232,10 +5255,10 @@
 
 !Class class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.582 2011-05-23 15:33:52 cg Exp $'
-!
-
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.582 2011-05-23 15:33:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.583 2011-06-28 13:16:04 vrany Exp $'
+!
+
+version_SVN
+    ^ ' Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1  '
 ! !