--- a/Explainer.st	Sun Oct 22 03:38:58 2017 +0000
+++ b/Explainer.st	Sat Nov 11 12:38:18 2017 +0100
@@ -1952,8 +1952,17 @@
     
     |types numTypes
      type1 type2 type3
-     nm1 nm2 nm3 link|
-     
+     nm1 nm2 nm3 link stringForType|
+
+    stringForType := 
+        [:class |
+            class == UndefinedObject ifTrue:['nil']
+            ifFalse:[ class == True ifTrue:['true']
+            ifFalse:[ class == False ifTrue:['false']
+            ifFalse:[ class == VoidObject ifTrue:['Void']
+            ifFalse:[ class name ]]]]
+        ].
+        
     "/ reduce...
     self compressSetOfTypes:setOfTypes.
     setOfTypes isEmpty ifTrue:[^ nil].
@@ -1964,18 +1973,19 @@
     "/ now make this a nice string
     numTypes := types size.
     type1 := types first.
-    nm1 := self asLink:type1 name to:(self actionToBrowseClass:type1 selector:selectorOrNil).
+    
+    nm1 := self asLink:(stringForType value:type1) to:(self actionToBrowseClass:type1 selector:selectorOrNil).
     numTypes == 1 ifTrue:[
         ^ nm1
     ].
     
     type2 := types second.
-    nm2 := self asLink:type2 name to:(self actionToBrowseClass:type2 selector:selectorOrNil).
+    nm2 := self asLink:(stringForType value:type2) to:(self actionToBrowseClass:type2 selector:selectorOrNil).
     numTypes == 2 ifTrue:[
         ^ nm1,' ',wordbetween,' ',nm2
     ].
     type3 := types third.
-    nm3 := self asLink:type3 name to:(self actionToBrowseClass:type3 selector:selectorOrNil).
+    nm3 := self asLink:(stringForType value:type3) to:(self actionToBrowseClass:type3 selector:selectorOrNil).
     numTypes == 3 ifTrue:[
          ^ nm1,', ',nm2,' ',wordbetween,' ',nm3
     ].
@@ -1984,6 +1994,8 @@
 "/        link := self actionToOpenMethodFinderFor:selectorOrNil. 
 "/    ].
     ^ self asLink:('%1 classes' bindWith:numTypes) to:link.
+
+    "Modified (format): / 11-11-2017 / 12:30:09 / cg"
 !
 
 valueStringFor:aValue