--- a/Class.st	Sat Nov 06 11:13:04 2010 +0000
+++ b/Class.st	Tue Nov 09 13:54:57 2010 +0000
@@ -12,34 +12,34 @@
 "{ Package: 'stx:libbasic' }"
 
 ClassDescription subclass:#Class
-        instanceVariableNames:'name category classvars comment subclasses classFilename package
-                revision environment signature attributes'
-        classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE
-                DefaultCategoryForDolphin'
-        poolDictionaries:''
-        category:'Kernel-Classes'
+	instanceVariableNames:'name category classvars comment subclasses classFilename package
+		revision environment signature attributes'
+	classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE
+		DefaultCategoryForDolphin'
+	poolDictionaries:''
+	category:'Kernel-Classes'
 !
 
 Object subclass:#ClassAttributes
-        instanceVariableNames:'primitiveDefinitions primitiveVariables primitiveFunctions
-                sharedPools traitComposition localSelectors'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:Class
+	instanceVariableNames:'primitiveDefinitions primitiveVariables primitiveFunctions
+		sharedPools traitComposition localSelectors'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:Class
 !
 
 Object subclass:#SimulatedClassPool
-        instanceVariableNames:'class'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:Class
+	instanceVariableNames:'class'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:Class
 !
 
 Association subclass:#SimulatedVariableBinding
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:Class::SimulatedClassPool
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:Class::SimulatedClassPool
 !
 
 !Class class methodsFor:'documentation'!
@@ -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'!
@@ -457,6 +474,7 @@
 ! !
 
 
+
 !Class methodsFor:'Compatibility-Dolphin'!
 
 defaultCategoryForDolphinClasses
@@ -625,6 +643,7 @@
     "Created: / 18.6.1998 / 22:08:45 / cg"
 ! !
 
+
 !Class methodsFor:'accessing'!
 
 addChangeRecordForClass:aClass andNotifyChangeOf:aspect
@@ -1658,7 +1677,6 @@
     "Modified: / 20.6.1998 / 18:17:37 / cg"
 ! !
 
-
 !Class methodsFor:'adding & removing'!
 
 removeFromSystem
@@ -5074,7 +5092,7 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Class.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Class.st 10589 2010-11-09 13:54:57Z vranyj1 $'
 !
 
 version_CVS
@@ -5082,9 +5100,5 @@
 !
 
 version_SVN
-    ^ '$Id: Class.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Class.st 10589 2010-11-09 13:54:57Z vranyj1 $'
 ! !
-
-
-
-