diff --git a/src/Microdown-HTMLExporter/Integer.extension.st b/src/Microdown-HTMLExporter/Integer.extension.st
deleted file mode 100644
index 6905f2bc..00000000
--- a/src/Microdown-HTMLExporter/Integer.extension.st
+++ /dev/null
@@ -1,18 +0,0 @@
-Extension { #name : 'Integer' }
-
-{ #category : '*Microdown-HTMLExporter' }
-Integer >> asFileSizeString [
-	" From Magritte-Model.MetaGUI-SeanDeNigris.459.mcz "
-
-	#( 'B' 'KB' 'MB' 'GB' 'TB' 'PB' 'EB' 'ZB' 'YB' )
-		inject: self
-		into: [ :value :each |
-			value < 1024
-				ifFalse: [ value // 1024 ]
-				ifTrue: [ 
-					^ String streamContents: [ : stream |
-							stream 
-								nextPutAll: value asString;
-								space;
-								nextPutAll: each ] ] ]
-]
diff --git a/src/Microdown-HTMLExporter/MicHTMLStylerCSSSourcePresenter.class.st b/src/Microdown-HTMLExporter/MicHTMLStylerCSSSourcePresenter.class.st
index a2f056e3..5edab0cf 100644
--- a/src/Microdown-HTMLExporter/MicHTMLStylerCSSSourcePresenter.class.st
+++ b/src/Microdown-HTMLExporter/MicHTMLStylerCSSSourcePresenter.class.st
@@ -80,5 +80,5 @@ MicHTMLStylerCSSSourcePresenter >> updateSizeMessage: anInteger [
 			(String streamContents: [ : stream |
 				stream
 					<< 'File size: ';
-					<< anInteger asFileSizeString ])
+					<< anInteger humanReadableByteSizeString ])
 ]
diff --git a/src/Microdown-HTMLExporter/MicHTMLStylerHTMLSourcePresenter.class.st b/src/Microdown-HTMLExporter/MicHTMLStylerHTMLSourcePresenter.class.st
index a06b398a..f1735d2f 100644
--- a/src/Microdown-HTMLExporter/MicHTMLStylerHTMLSourcePresenter.class.st
+++ b/src/Microdown-HTMLExporter/MicHTMLStylerHTMLSourcePresenter.class.st
@@ -79,5 +79,5 @@ MicHTMLStylerHTMLSourcePresenter >> updateSizeMessage: anInteger [
 			(String streamContents: [ : stream |
 				stream
 					<< 'File size: ';
-					<< anInteger asFileSizeString ])
+					<< anInteger humanReadableByteSizeString ])
 ]
diff --git a/src/Microdown/String.extension.st b/src/Microdown/String.extension.st
index 7b925c62..c1a8f8d5 100644
--- a/src/Microdown/String.extension.st
+++ b/src/Microdown/String.extension.st
@@ -25,7 +25,7 @@ String >> stripNtabs: n [
 	"remove up to N tabs from the beginning"
 	| count max |
 	max := n min: self size.
-	count := 1. "all charcters less than count are tabs"
+	count := 1. "all characters less than count are tabs"
 	[ count <= max and: [ (self at: count) = Character tab ] ]
 		whileTrue: [count := count + 1].
 	^ self allButFirst: count-1
@@ -33,6 +33,7 @@ String >> stripNtabs: n [
 
 { #category : '*Microdown' }
 String >> withoutPreTabs [
-	"return a copy of me, without tabs in the begining "
+	"return a copy of me, without tabs in the begining"
+	
 	^ self trimLeft: [ :char | char = Character tab ]
 ]