--- a/SmallSense__Info.st	Wed Nov 19 20:56:59 2014 +0000
+++ b/SmallSense__Info.st	Fri Nov 21 17:31:26 2014 +0000
@@ -21,7 +21,7 @@
 "{ NameSpace: SmallSense }"
 
 Object subclass:#Info
-	instanceVariableNames:'manager'
+	instanceVariableNames:'manager errorneous'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Smalltalk-Types-Info'
@@ -50,6 +50,20 @@
 "
 ! !
 
+!Info methodsFor:'accessing'!
+
+errorneous:something
+    errorneous := something.
+! !
+
+!Info methodsFor:'testing'!
+
+isErrorneous
+    ^ errorneous == true
+
+    "Created: / 21-11-2014 / 16:37:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !Info class methodsFor:'documentation'!
 
 version_HG