--- a/SmallSense__ClassType.st	Tue Nov 19 13:02:56 2013 +0000
+++ b/SmallSense__ClassType.st	Wed Feb 26 19:06:00 2014 +0100
@@ -115,6 +115,13 @@
     ^true
 
     "Created: / 16-12-2011 / 02:00:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isUnknownType
+
+    ^klass == UndefinedObject
+
+    "Created: / 31-01-2014 / 01:30:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ClassType class methodsFor:'documentation'!
@@ -125,6 +132,6 @@
 !
 
 version_SVN
-    ^ '$Id: SmallSenseClassType.st 8000 2012-05-17 23:16:11Z vranyj1 $'
+    ^ '$Id: SmallSense__ClassType.st,v 1.2 2014/02/12 14:49:29 sr Exp $'
 ! !