diff --git a/kernel/Behavior.st b/kernel/Behavior.st
index 11659e1..6f304bf 100644
--- a/kernel/Behavior.st
+++ b/kernel/Behavior.st
@@ -1569,13 +1569,7 @@ method dictionary, and iterating over the class hierarchy.'>
 	"Print my entire subclass hierarchy on the terminal."
 
 	<category: 'printing hierarchy'>
-	self printSubclasses: 0
-	    using: 
-		[:name :level | 
-		stdout
-		    next: level * self hierarchyIndent put: Character space;
-		    nextPutAll: name;
-		    nl]
+	self printSubclasses: 0 using: self hierarchyPrintBlock
     ]
 
     printFullHierarchy [
@@ -1584,11 +1578,7 @@ method dictionary, and iterating over the class hierarchy.'>
 
 	<category: 'printing hierarchy'>
 	| printBlock |
-	printBlock := [:name :level |
-			  stdout
-			      next: level * self hierarchyIndent put: Character space;
-			      nextPutAll: name;
-			      nl].
+	printBlock := self hierarchyPrintBlock.
 	self printSuperclasses: 0 using: printBlock;
 	     printSubclasses: (self allSuperclasses size) using: printBlock
     ]
@@ -1622,6 +1612,17 @@ method dictionary, and iterating over the class hierarchy.'>
 		    ifFalse: [subclass printSubclasses: level + 1 using: aBlock]]
     ]
 
+    hierarchyPrintBlock [
+	"Answer the print block to be used by #printHierarchy and #printFullHierarchy."
+
+	<category: 'private'>
+	^[:name :level |
+	    Transcript
+		next: level * self hierarchyIndent put: Character space;
+		display: name asString;
+		nl]
+    ]
+
     hierarchyIndent [
 	"Answer the indent to be used by #printHierarchy - 4 by default"