--- a/SmallSense__ClassType.st	Tue Sep 24 12:42:20 2013 +0100
+++ b/SmallSense__ClassType.st	Tue Sep 24 23:01:37 2013 +0100
@@ -17,7 +17,12 @@
 !
 
 klass:aClass
+
     klass := aClass.
+    (klass == True or:[klass == False]) ifTrue: [
+        klass := Boolean
+    ].
+
 
     "Some manual trustfullness tweaks"
 
@@ -25,7 +30,7 @@
         self trustfullnessAdd: -10. 
     ]
 
-    "Modified: / 17-05-2012 / 19:59:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 15:31:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 trustfullness
@@ -96,9 +101,13 @@
 printWithoutAnglesOn:aStream
     "superclass SmallSenseType says that I am responsible to implement this method"
 
-    klass printOn: aStream
+    klass == UndefinedObject ifTrue:[
+         'nil' printOn: aStream 
+    ] ifFalse:[
+        klass printOn: aStream
+    ].
 
-    "Modified: / 16-12-2011 / 01:54:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 13:46:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ClassType methodsFor:'testing'!